home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #24 (Sep 87) / fortran source / misc stuff / toolbx.par < prev   
Text File  |  1987-08-09  |  58KB  |  2,100 lines
  1. *****************************************************************************
  2. *
  3. * Title: Toolbox Call Trap Procedure Parameter File
  4. *
  5. * Produced by: Absoft South, Inc.            Date: 11/08/84
  6. *
  7. * Purpose: To make calls to the toolbox call trap procedure more readible.
  8. *
  9. * Notes: The call to TOOLBX can take up to 10 parameters.  Most functions
  10. *         (or procedures) do not require 10 parameters so the call should
  11. *         only include the documented number of parameters.    For example:
  12. *           CALL TOOLBX (MOVETO,V,H)
  13. *           CALL TOOLBX (FRAMERECT,RECT)
  14. *
  15. * Warnings/Limitations: All parameters that are passed through this routine
  16. *         are either in some structure (such as an integer or character
  17. *         array) or stored in a 4 byte variable (ie - INTEGER*4).  Note
  18. *         that all literals in a parameter string are converted to
  19. *         INTEGER*4.
  20. *
  21. * Calling Conventions:
  22. *         CALL TOOLBX (FNCTNM,PAR1,PAR2,...,PAR10)
  23. *         Where:
  24. *           FNCTNM = The name of the desired function (or procedure)
  25. *              as provided by the parameter file.
  26. *           PAR1...PAR10 = The parameters of the desired function
  27. *              (or procedure).
  28. *
  29. * Modification History:
  30. *
  31. * 19 Feb 86    Fixed OS traps to return A0.            EWG
  32. * 10 Mar 86    Fixed HOMERESFILE.                EWG
  33. *****************************************************************************
  34. * Modification History:
  35. *
  36. * 19 Feb 86    Fixed OS traps to return A0.            EWG
  37. * 10 Mar 86    Fixed HOMERESFILE.                EWG
  38. * 17 Mar 86    Fixed EVENTAVAIL.                EWG
  39. * 15 May 86    Fixed SIZERESOURCE to return a LONGINT.        EWG
  40. * 23 Jun 86    Fixed HUNLOCK to take an argument.        EWG
  41. * 11 Aug 86    Fixed SETITEMSTYLE to take a VAL style argument.EWG
  42. * 11 Aug 86    Fixed SPACEEXTRA to take a long (fixed) arg.    EWG
  43. * 13 Jan 87    Fixed SETRESINFO to take only 3 arguments.    GEL
  44. *****************************************************************************
  45.  
  46. * FUNCTION HomeResFile (TheResource: Handle) : Integer;
  47.     INTEGER HOMERESFILE
  48.     PARAMETER (HOMERESFILE=Z'9A450000')
  49.  
  50. * FUNCTION EventAvail (EventMask: Integer; VAR TheEvent: EventRecord):
  51. *               Boolean;
  52.     INTEGER EVENTAVAIL
  53.     PARAMETER (EVENTAVAIL=Z'971CE000')
  54.  
  55. * FUNCTION SizeResource (TheResource: Handle): Longint;
  56.     INTEGER SIZERESOURCE
  57.     PARAMETER (SIZERESOURCE=Z'9A590000')
  58.  
  59. * PROCEDURE HUnlock (H: Handle);
  60.     INTEGER HUNLOCK
  61.     PARAMETER (HUNLOCK=Z'02A80088')
  62.  
  63. * PROCEDURE SetItemStyle (Menu: MenuHandle; Item: Integer;
  64. *              ChStyle: Style);
  65.     INTEGER SETITEMSTYLE
  66.     PARAMETER (SETITEMSTYLE=Z'94211200')
  67.  
  68. * PROCEDURE SpaceExtra (extra: Integer);
  69.     INTEGER SPACEEXTRA
  70.     PARAMETER (SPACEEXTRA=Z'88E10000')
  71.  
  72. * PROCEDURE SetResInfo (TheResource: Handle; TheID: Integer;
  73. *            TheType: ResType; Name: Str255);
  74.     INTEGER SETRESINFO
  75.     PARAMETER (SETRESINFO=Z'9A911400')
  76.  
  77.  
  78.  
  79. * Flag bit definitions for file control words.
  80.     INTEGER ASYNC
  81.     PARAMETER (ASYNC=Z'40000000')
  82.     INTEGER SYS
  83.     PARAMETER (SYS=Z'20000000')
  84.     INTEGER IMMED
  85.     PARAMETER (IMMED=Z'20000000')
  86.     INTEGER REGS
  87.     PARAMETER (REGS=Z'10000000')
  88.  
  89. * String comparision flag definitions.
  90.     INTEGER MARKS
  91.     PARAMETER (MARKS=Z'20000000')
  92.     INTEGER CASE
  93.     PARAMETER (CASE=Z'40000000')
  94.     
  95. * System global used to find out if HFS is installed.
  96. * Negative (word) if not.
  97.     INTEGER FSFCBLEN
  98.     PARAMETER (FSFCBLEN=Z'000003F6')
  99.  
  100. * Hierarchical file system call numbers.  Use with HFSDispatch.
  101.     INTEGER OPENWD
  102.     PARAMETER (OPENWD=1)
  103.     INTEGER CLOSEWD
  104.     PARAMETER (CLOSEWD=2)
  105.     INTEGER CATMOVE
  106.     PARAMETER (CATMOVE=5)
  107.     INTEGER DIRCREATE
  108.     PARAMETER (DIRCREATE=6)
  109.     INTEGER GETWDINFO
  110.     PARAMETER (GETWDINFO=7)
  111.     INTEGER GETFCBINFO
  112.     PARAMETER (GETFCBINFO=8)
  113.     INTEGER GETCATINFO
  114.     PARAMETER (GETCATINFO=9)
  115.     INTEGER SETCATINFO
  116.     PARAMETER (SETCATINFO=10)
  117.     INTEGER HSETVOLINFO
  118.     PARAMETER (HSETVOLINFO=11)
  119.  
  120. * FUNCTION PBOpen (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  121.     INTEGER PBOPEN
  122.     PARAMETER (PBOPEN=Z'00080010')
  123.  
  124. * FUNCTION PBClose (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  125.     INTEGER PBCLOSE
  126.     PARAMETER (PBCLOSE=Z'00180010')
  127.  
  128. * FUNCTION PBRead (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  129.     INTEGER PBREAD
  130.     PARAMETER (PBREAD=Z'00280010')
  131.  
  132. * FUNCTION PBWrite (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  133.     INTEGER PBWRITE
  134.     PARAMETER (PBWRITE=Z'00380010')
  135.  
  136. * FUNCTION PBControl (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  137.     INTEGER PBCONTROL
  138.     PARAMETER (PBCONTROL=Z'00480010')
  139.  
  140. * FUNCTION PBStatus (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  141.     INTEGER PBSTATUS
  142.     PARAMETER (PBSTATUS=Z'00580010')
  143.  
  144. * FUNCTION PBKillIO (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  145.     INTEGER PBKILLIO
  146.     PARAMETER (PBKILLIO=Z'00680010')
  147.  
  148. * FUNCTION PBGetVolInfo (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  149.     INTEGER PBGETVOLINFO
  150.     PARAMETER (PBGETVOLINFO=Z'00780010')
  151.  
  152. * FUNCTION PBFileCreate (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  153.     INTEGER PBFILECREATE
  154.     PARAMETER (PBFILECREATE=Z'00880010')
  155.  
  156. * FUNCTION PBFileDelete (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  157.     INTEGER PBFILEDELETE
  158.     PARAMETER (PBFILEDELETE=Z'00980010')
  159.  
  160. * FUNCTION PBOpenRf (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  161.     INTEGER PBOPENRF
  162.     PARAMETER (PBOPENRF=Z'00A80010')
  163.  
  164. * FUNCTION PBRename (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  165.     INTEGER PBRENAME
  166.     PARAMETER (PBRENAME=Z'00B80010')
  167.  
  168. * FUNCTION PBGetFileInfo (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  169.     INTEGER PBGETFILEINFO
  170.     PARAMETER (PBGETFILEINFO=Z'00C80010')
  171.  
  172. * FUNCTION PBSetFileInfo (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  173.     INTEGER PBSETFILEINFO
  174.     PARAMETER (PBSETFILEINFO=Z'00D80010')
  175.  
  176. * FUNCTION PBUnmountVol (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  177.     INTEGER PBUNMOUNTVOL
  178.     PARAMETER (PBUNMOUNTVOL=Z'00E80010')
  179.  
  180. * FUNCTION PBMountVol (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  181.     INTEGER PBMOUNTVOL
  182.     PARAMETER (PBMOUNTVOL=Z'00F80010')
  183.  
  184. * FUNCTION PBFileAllocate (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  185.     INTEGER PBFILEALLOCATE
  186.     PARAMETER (PBFILEALLOCATE=Z'01080010')
  187.  
  188. * FUNCTION PBGetEOF (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  189.     INTEGER PBGETEOF
  190.     PARAMETER (PBGETEOF=Z'01180010')
  191.  
  192. * FUNCTION PBSetEOF (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  193.     INTEGER PBSETEOF
  194.     PARAMETER (PBSETEOF=Z'01280010')
  195.  
  196. * FUNCTION PBFlushVol (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  197.     INTEGER PBFLUSHVOL
  198.     PARAMETER (PBFLUSHVOL=Z'01380010')
  199.  
  200. * FUNCTION PBGetVol (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  201.     INTEGER PBGETVOL
  202.     PARAMETER (PBGETVOL=Z'01480010')
  203.  
  204. * FUNCTION PBSetVol (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  205.     INTEGER PBSETVOL
  206.     PARAMETER (PBSETVOL=Z'01580010')
  207.  
  208. * PROCEDURE InitQueue ;
  209.     INTEGER INITQUEUE
  210.     PARAMETER (INITQUEUE=Z'01600000')
  211.  
  212. * FUNCTION PBEject (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  213.     INTEGER PBEJECT
  214.     PARAMETER (PBEJECT=Z'01780010')
  215.  
  216. * FUNCTION PBGetFPos (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  217.     INTEGER PBGETFPOS
  218.     PARAMETER (PBGETFPOS=Z'01880010')
  219.  
  220.  
  221. * Hierarchical File System (HFS) Definitions.
  222.  
  223. * FUNCTION PBHOpen (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  224.     INTEGER PBHOPEN
  225.     PARAMETER (PBHOPEN=Z'20080010')
  226.  
  227. * FUNCTION PBHGetVolInfo (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  228.     INTEGER PBGETVOLINFO
  229.     PARAMETER (PBGETVOLINFO=Z'20780010')
  230.  
  231. * FUNCTION PBHFileCreate (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  232.     INTEGER PBHFILECREATE
  233.     PARAMETER (PBHFILECREATE=Z'20880010')
  234.  
  235. * FUNCTION PBHFileDelete (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  236.     INTEGER PBHFILEDELETE
  237.     PARAMETER (PBHFILEDELETE=Z'20980010')
  238.  
  239. * FUNCTION PBHOpenRf (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  240.     INTEGER PBHOPENRF
  241.     PARAMETER (PBHOPENRF=Z'20A80010')
  242.  
  243. * FUNCTION PBHRename (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  244.     INTEGER PBHRENAME
  245.     PARAMETER (PBHRENAME=Z'20B80010')
  246.  
  247. * FUNCTION PBHGetFileInfo (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  248.     INTEGER PBHGETFILEINFO
  249.     PARAMETER (PBHGETFILEINFO=Z'20C80010')
  250.  
  251. * FUNCTION PBHSetFileInfo (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  252.     INTEGER PBHSETFILEINFO
  253.     PARAMETER (PBHSETFILEINFO=Z'20D80010')
  254.  
  255. * FUNCTION PBAllocateContig (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  256.     INTEGER PBFILEALLOCATE
  257.     PARAMETER (PBFILEALLOCATE=Z'21080010')
  258.  
  259. * FUNCTION PBHGetVol (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  260.     INTEGER PBHGETVOL
  261.     PARAMETER (PBHGETVOL=Z'21480010')
  262.  
  263. * FUNCTION PBHSetVol (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  264.     INTEGER PBHSETVOL
  265.     PARAMETER (PBHSETVOL=Z'21580010')
  266.  
  267. * FUNCTION HFSDispatch (CallNumber : longint; paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  268.     INTEGER HFSDISPATCH
  269.     PARAMETER (HFSDISPATCH=Z'06010010')
  270.  
  271.  
  272.  
  273. * PROCEDURE InitZone (GrowProc: ProcPtr; MasterCount: Integer;
  274. *              LimitPtr,StartPtr: Ptr);
  275.     INTEGER INITZONE
  276.     PARAMETER (INITZONE=Z'01900004')
  277.  
  278. * FUNCTION GetZone : THz;
  279.     INTEGER GETZONE
  280.     PARAMETER (GETZONE=Z'11A000A8')
  281.  
  282. * PROCEDURE SetZone (Hz: THz);
  283.     INTEGER SETZONE
  284.     PARAMETER (SETZONE=Z'01B80008')
  285.  
  286. * FUNCTION FreeMem : LongInt;
  287.     INTEGER FREEMEM
  288.     PARAMETER (FREEMEM=Z'01C00024')
  289.  
  290. * FUNCTION MaxMem (VAR Grow: Size): Size;
  291.     INTEGER MAXMEM
  292.     PARAMETER (MAXMEM=Z'11DA0024')
  293.     INTEGER MAXMEM2
  294.     PARAMETER (MAXMEM2=Z'11DA00A4')
  295.  
  296. * FUNCTION NewPtr (logicalSize: Size) : Ptr;
  297.     INTEGER NEWPTR
  298.     PARAMETER (NEWPTR=Z'11E000A8')
  299.  
  300. * PROCEDURE DisposePtr (P: Ptr);
  301.     INTEGER DISPOSEPTR
  302.     PARAMETER (DISPOSEPTR=Z'01F80008')
  303.  
  304. * PROCEDURE SetPtrSize (P: Ptr; NewSize: Size);
  305.     INTEGER SETPTRSIZE
  306.     PARAMETER (SETPTRSIZE=Z'02080008')
  307.  
  308. * FUNCTION GetPtrSize (P: Ptr): Size;
  309.     INTEGER GETPTRSIZE
  310.     PARAMETER (GETPTRSIZE=Z'02180028')
  311.  
  312. * FUNCTION NewHandle (LogicalSize: Size): Handle;
  313.     INTEGER NEWHANDLE
  314.     PARAMETER (NEWHANDLE=Z'122000A8')
  315.  
  316. * PROCEDURE DisposHandle (H: Handle)
  317.     INTEGER DISPOSHANDLE
  318.     PARAMETER (DISPOSHANDLE=Z'02380008')
  319.  
  320. * PROCEDURE SetHandleSize (H: Handle; NewSize: Size);
  321.     INTEGER SETHANDLESIZE
  322.     PARAMETER (SETHANDLESIZE=Z'02480008')
  323.  
  324. * FUNCTION GetHandleSize (H: Handle): Size;
  325.     INTEGER GETHANDLESIZE
  326.     PARAMETER (GETHANDLESIZE=Z'02580028')
  327.  
  328. * FUNCTION HandleZone (H: Handle): THz;
  329.     INTEGER HANDLEZONE
  330.     PARAMETER (HANDLEZONE=Z'126800A8')
  331.  
  332. * PROCEDURE ReAllocHandle (H: Handle; LogicalSize: Size);
  333.     INTEGER REALLOCHANDLE
  334.     PARAMETER (REALLOCHANDLE=Z'02780008')
  335.  
  336. * FUNCTION RecoverHandle (P: Ptr): Handle;
  337.     INTEGER RECOVERHANDLE
  338.     PARAMETER (RECOVERHANDLE=Z'128800A4')
  339.  
  340. * PROCEDURE HLock (H: Handle);
  341.     INTEGER HLOCK
  342.     PARAMETER (HLOCK=Z'02980008')
  343.  
  344. * PROCEDURE EmptyHandle (H: Handle);
  345.     INTEGER EMPTYHANDLE
  346.     PARAMETER (EMPTYHANDLE=Z'02B80008')
  347.  
  348. * PROCEDURE InitApplZone ;
  349.     INTEGER INITAPPLZONE
  350.     PARAMETER (INITAPPLZONE=Z'02C00004')
  351.  
  352. * PROCEDURE SetApplLimit (ZoneLimit: Ptr);
  353.     INTEGER SETAPPLLIMIT
  354.     PARAMETER (SETAPPLLIMIT=Z'02D80008')
  355.  
  356. * PROCEDURE BlockMove (SourcePtr,DestPtr: Ptr; ByteCount: Size);
  357.     INTEGER BLOCKMOVE
  358.     PARAMETER (BLOCKMOVE=Z'02E98008')
  359.  
  360. * FUNCTION PostEvent (EventCode: Integer; EventMsg: LongInt) : OSErr;
  361.     INTEGER POSTEVENT
  362.     PARAMETER (POSTEVENT=Z'02F80010')
  363.  
  364. * FUNCTION OSEventAvail (eventMask: INTEGER;
  365. *      VAR theEvent: EventRecord) : BOOLEAN;
  366.     INTEGER OSEVENTAVAIL
  367.     PARAMETER (OSEVENTAVAIL=Z'03014010')
  368.  
  369. * FUNCTION GetOSEvent (eventMask: INTEGER; VAR theEvent: EventRecord) : BOOLEAN
  370.     INTEGER GETOSEVENT
  371.     PARAMETER (GETOSEVENT=Z'03114010')
  372.  
  373. * PROCEDURE FlushEvents (EventMask .OR. StopMask: Integer);
  374.     INTEGER FLUSHEVENTS
  375.     PARAMETER (FLUSHEVENTS=Z'03200010')
  376.  
  377. * FUNCTION OffLine (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  378.     INTEGER OFFLINE
  379.     PARAMETER (OFFLINE=Z'03580010')
  380.  
  381. * PROCEDURE MoreMasters ;
  382.     INTEGER MOREMASTERS
  383.     PARAMETER (MOREMASTERS=Z'03600004')
  384.  
  385. * FUNCTION WriteParam  (SysParam: PTR, MinusOne: LongInt) : OSErr;
  386.     INTEGER WRITEPARAM
  387.     PARAMETER (WRITEPARAM=Z'03880010')
  388.  
  389. * FUNCTION ReadDateTime (VAR Secs: LongInt): OsErr;
  390.     INTEGER READDATETIME
  391.     PARAMETER (READDATETIME=Z'039A0010')
  392.  
  393. * FUNCTION SetDateTime (Secs: LongInt): OsErr;
  394.     INTEGER SETDATETIME
  395.     PARAMETER (SETDATETIME=Z'03A00010')
  396.  
  397. * PROCEDURE Delay (NumTicks: LongInt; VAR FinalTicks: LongInt);
  398.     INTEGER DELAY
  399.     PARAMETER (DELAY=Z'03B80020')
  400.  
  401. * FUNCTION EqualString (AStr,BStr: Str255; Case,Marks: Boolean): Boolean;
  402.     INTEGER EQUALSTRING
  403.     PARAMETER (EQUALSTRING=Z'03CBC020')
  404.  
  405. * FUNCTION InitUtil : OsErr;
  406.     INTEGER INITUTIL
  407.     PARAMETER (INITUTIL=Z'03F00010')
  408.  
  409. * PROCEDURE ResrvMem (CbNeeded: Size);
  410.     INTEGER RESRVMEM
  411.     PARAMETER (RESRVMEM=Z'04000008')
  412.  
  413. * FUNCTION PBSetFilLock (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  414.     INTEGER PBSETFILLOCK
  415.     PARAMETER (PBSETFILLOCK=Z'04180010')
  416.  
  417. * FUNCTION PBRstFilLock (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  418.     INTEGER PBRSTFILLOCK
  419.     PARAMETER (PBRSTFILLOCK=Z'04280010')
  420.  
  421. * FUNCTION PBSetFilType (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  422.     INTEGER PBSETFILTYPE
  423.     PARAMETER (PBSETFILTYPE=Z'04380010')
  424.  
  425. * FUNCTION PBSetFPos (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  426.     INTEGER PBSETFPOS
  427.     PARAMETER (PBSETFPOS=Z'04480010')
  428.  
  429. * FUNCTION PBFlushFil (paramBlock: ParmBlkPtr; async: BOOLEAN) : OSErr;
  430.     INTEGER PBFLUSHFIL
  431.     PARAMETER (PBFLUSHFIL=Z'04580010')
  432.  
  433. * FUNCTION GetTrapAddress (trapNum: INTEGER) : LongInt;
  434.     INTEGER GETTRAPADDRESS
  435.     PARAMETER (GETTRAPADDRESS=Z'146000A0')
  436.  
  437. * FUNCTION SetTrapAddress (trapAddr: LongInt; trapNum: INTEGER);
  438.     INTEGER SETTRAPADDRESS
  439.     PARAMETER (SETTRAPADDRESS=Z'04780000')
  440.  
  441. * FUNCTION PtrZone (P: Ptr): THz;
  442.     INTEGER PTRZONE
  443.     PARAMETER (PTRZONE=Z'148800A8')
  444.  
  445. * PROCEDURE HPurge (H: Handle);
  446.     INTEGER HPURGE
  447.     PARAMETER (HPURGE=Z'04980008')
  448.  
  449. * PROCEDURE HNoPurge (H: Handle);
  450.     INTEGER HNOPURGE
  451.     PARAMETER (HNOPURGE=Z'04A80008')
  452.  
  453. * PROCEDURE SetGrowZone (GrowZone: ProcPtr);
  454.     INTEGER SETGROWZONE
  455.     PARAMETER (SETGROWZONE=Z'04B80008')
  456.  
  457. * FUNCTION CompactMem (CbNeeded: Size): Size;
  458.     INTEGER COMPACTMEM
  459.     PARAMETER (COMPACTMEM=Z'04C00024')
  460.  
  461. * PROCEDURE PurgeMem (CbNeeded: Size);
  462.     INTEGER PURGEMEM
  463.     PARAMETER (PURGEMEM=Z'04D00008')
  464.  
  465. * PROCEDURE InitCursor ;
  466.     INTEGER INITCURSOR
  467.     PARAMETER (INITCURSOR=Z'85000000')
  468.  
  469. * PROCEDURE SetCursor (Crsr: Cursor);
  470.     INTEGER SETCURSOR
  471.     PARAMETER (SETCURSOR=Z'85130000')
  472.  
  473. * PROCEDURE HideCursor ;
  474.     INTEGER HIDECURSOR
  475.     PARAMETER (HIDECURSOR=Z'85200000')
  476.  
  477. * PROCEDURE ShowCursor ;
  478.     INTEGER SHOWCURSOR
  479.     PARAMETER (SHOWCURSOR=Z'85300000')
  480.  
  481. * PROCEDURE UprString (VAR TheString: Str255; Marks: Boolean);
  482.     INTEGER UPRSTRING
  483.     PARAMETER (UPRSTRING=Z'85433000')
  484.  
  485. * PROCEDURE ShieldCursor (Left,Top,Right,Bottom: Integer);
  486.     INTEGER SHIELDCURSOR
  487.     PARAMETER (SHIELDCURSOR=Z'85509100')
  488.  
  489. * PROCEDURE ObscureCursor ;
  490.     INTEGER OBSCURECURSOR
  491.     PARAMETER (OBSCURECURSOR=Z'85600000')
  492.  
  493. * PROCEDURE SetApplBase (StartPtr: Ptr);
  494.     INTEGER SETAPPLBASE
  495.     PARAMETER (SETAPPLBASE=Z'85710000')
  496.  
  497. * FUNCTION BitAnd (Long1,Long2: LongInt): LongInt;
  498.     INTEGER BITAND
  499.     PARAMETER (BITAND=Z'85892000')
  500.  
  501. * FUNCTION BitXor (Long1,Long2: LongInt): LongInt;
  502.     INTEGER BITXOR
  503.     PARAMETER (BITXOR=Z'85992000')
  504.  
  505. * FUNCTION BitNot (Long: LongInt): LongInt;
  506.     INTEGER BITNOT
  507.     PARAMETER (BITNOT=Z'85A90000')
  508.  
  509. * FUNCTION BitOr (Long1,Long2: LongInt): LongInt;
  510.     INTEGER BITOR
  511.     PARAMETER (BITOR=Z'85B92000')
  512.  
  513. * FUNCTION BitShift (Long: LongInt; Count: Integer): LongInt;
  514.     INTEGER BITSHIFT
  515.     PARAMETER (BITSHIFT=Z'85C91000')
  516.  
  517. * FUNCTION BitTst (BytePtr: Ptr; BitNum: LongInt): Boolean;
  518.     INTEGER BITTST
  519.     PARAMETER (BITTST=Z'85DD2000')
  520.  
  521. * PROCEDURE BitSet (BytePtr: Ptr; BitNum: LongInt);
  522.     INTEGER BITSET
  523.     PARAMETER (BITSET=Z'85E12000')
  524.  
  525. * PROCEDURE BitClr (BytePtr: Ptr; BitNum: LongInt);
  526.     INTEGER BITCLR
  527.     PARAMETER (BITCLR=Z'85F12000')
  528.  
  529. * FUNCTION Random : Integer;
  530.     INTEGER RANDOM
  531.     PARAMETER (RANDOM=Z'86140000')
  532.  
  533. * PROCEDURE ForeColor (Color: LongInt);
  534.     INTEGER FORECOLOR
  535.     PARAMETER (FORECOLOR=Z'86210000')
  536.  
  537. * PROCEDURE BackColor (Color: LongInt);
  538.     INTEGER BACKCOLOR
  539.     PARAMETER (BACKCOLOR=Z'86310000')
  540.  
  541. * PROCEDURE ColorBit (WhichBit: Integer);
  542.     INTEGER COLORBIT
  543.     PARAMETER (COLORBIT=Z'86408000')
  544.  
  545. * FUNCTION GetPixel (H,V: Integer): Boolean;
  546.     INTEGER GETPIXEL
  547.     PARAMETER (GETPIXEL=Z'865C9000')
  548.  
  549. * PROCEDURE StuffHex (ThingPtr: Ptr; S: Str255);
  550.     INTEGER STUFFHEX
  551.     PARAMETER (STUFFHEX=Z'86616000')
  552.  
  553. * PROCEDURE LongMul (A,B: LongInt; VAR Dest: Int64Bit);
  554.     INTEGER LONGMUL
  555.     PARAMETER (LONGMUL=Z'86712C00')
  556.  
  557. * FUNCTION FixMul (A,B: Fixed): Integer;
  558.     INTEGER FIXMUL
  559.     PARAMETER (FIXMUL=Z'86852000')
  560.  
  561. * FUNCTION FixRatio (Numerator,Denominator: Integer): Fixed;
  562.     INTEGER FIXRATIO
  563.     PARAMETER (FIXRATIO=Z'86989000')
  564.  
  565. * FUNCTION HiWord (X: LongInt): Integer;
  566.     INTEGER HIWORD
  567.     PARAMETER (HIWORD=Z'86A50000')
  568.  
  569. * FUNCTION LoWord (X: LongInt): Integer;
  570.     INTEGER LOWORD
  571.     PARAMETER (LOWORD=Z'86B50000')
  572.  
  573. * FUNCTION FixRound (X: Fixed): Integer;
  574.     INTEGER FIXROUND
  575.     PARAMETER (FIXROUND=Z'86C50000')
  576.  
  577. * PROCEDURE InitPort (GlobalPtr: QDPtr);
  578.     INTEGER INITPORT
  579.     PARAMETER (INITPORT=Z'86D10000')
  580.  
  581. * PROCEDURE InitGraf (Gp: GrafPtr);
  582.     INTEGER INITGRAF
  583.     PARAMETER (INITGRAF=Z'86E10000')
  584.  
  585. * PROCEDURE OpenPort (Gp: GrafPtr);
  586.     INTEGER OPENPORT
  587.     PARAMETER (OPENPORT=Z'86F10000')
  588.  
  589. * PROCEDURE LocalToGlobal (VAR Pt: Point);
  590.     INTEGER LOCALTOGLOBAL
  591.     PARAMETER (LOCALTOGLOBAL=Z'87030000')
  592.  
  593. * PROCEDURE GlobalToLocal (VAR Pt: Point);
  594.     INTEGER GLOBALTOLOCAL
  595.     PARAMETER (GLOBALTOLOCAL=Z'87130000')
  596.  
  597. * PROCEDURE GrafDevice (Device: Integer);
  598.     INTEGER GRAFDEVICE
  599.     PARAMETER (GRAFDEVICE=Z'87208000')
  600.  
  601. * PROCEDURE SetPort (Gp: GrafPtr);
  602.     INTEGER SETPORT
  603.     PARAMETER (SETPORT=Z'87310000')
  604.  
  605. * PROCEDURE GetPort (VAR Gp: GrafPtr);
  606.     INTEGER GETPORT
  607.     PARAMETER (GETPORT=Z'87430000')
  608.  
  609. * PROCEDURE SetPortBits (Bm: Bitmap);
  610.     INTEGER SETPORTBITS
  611.     PARAMETER (SETPORTBITS=Z'87530000')
  612.  
  613. * PROCEDURE PortSize (Width,Height: Integer);
  614.     INTEGER PORTSIZE
  615.     PARAMETER (PORTSIZE=Z'87609000')
  616.  
  617. * PROCEDURE MovePortTo (LeftGlobal,TopGlobal: Integer);
  618.     INTEGER MOVEPORTTO
  619.     PARAMETER (MOVEPORTTO=Z'87709000')
  620.  
  621. * PROCEDURE SetOrigin (H,V: Integer);
  622.     INTEGER SETORIGIN
  623.     PARAMETER (SETORIGIN=Z'87809000')
  624.  
  625. * PROCEDURE SetClip (Rgn: RgnHandle);
  626.     INTEGER SETCLIP
  627.     PARAMETER (SETCLIP=Z'87910000')
  628.  
  629. * PROCEDURE GetClip (Rgn: RgnHandle);
  630.     INTEGER GETCLIP
  631.     PARAMETER (GETCLIP=Z'87A10000')
  632.  
  633. * PROCEDURE ClipRect (R: Rect);
  634.     INTEGER CLIPRECT
  635.     PARAMETER (CLIPRECT=Z'87B30000')
  636.  
  637. * PROCEDURE BackPat (Pat: Pattern);
  638.     INTEGER BACKPAT
  639.     PARAMETER (BACKPAT=Z'87C30000')
  640.  
  641. * PROCEDURE ClosePort (Gp: GrafPtr);
  642.     INTEGER CLOSEPORT
  643.     PARAMETER (CLOSEPORT=Z'87D10000')
  644.  
  645. * PROCEDURE AddPt (SrcPt: Point; VAR DstPt: Point);
  646.     INTEGER ADDPT
  647.     PARAMETER (ADDPT=Z'87E16000')
  648.  
  649. * PROCEDURE SubPt (SrcPt: Point; VAR DstPt: Point);
  650.     INTEGER SUBPT
  651.     PARAMETER (SUBPT=Z'87F16000')
  652.  
  653. * PROCEDURE SetPt (VAR Pt: Point; H,V: Integer);
  654.     INTEGER SETPT
  655.     PARAMETER (SETPT=Z'88031200')
  656.  
  657. * FUNCTION EqualPt (PtA,PtB: Point) : Boolean;
  658.     INTEGER EQUALPT
  659.     PARAMETER (EQUALPT=Z'881D2000')
  660.  
  661. * PROCEDURE StdText (ByteCount: Integer; TextAddr: QDPtr;
  662. *             Numer,Decom: Point);
  663.     INTEGER STDTEXT
  664.     PARAMETER (STDTEXT=Z'8820A480')
  665.  
  666. * PROCEDURE DrawChar (Ch: Char)
  667.     INTEGER DRAWCHAR
  668.     PARAMETER (DRAWCHAR=Z'88308000')
  669.  
  670. * PROCEDURE DrawString (S: Str255);
  671.     INTEGER DRAWSTRING
  672.     PARAMETER (DRAWSTRING=Z'88430000')
  673.  
  674. * PROCEDURE DrawText (TextBuf: QDPtr; FirstByte,ByteCount: Integer);
  675.     INTEGER DRAWTEXT
  676.     PARAMETER (DRAWTEXT=Z'88511200')
  677.  
  678. * FUNCTION TextWidth (TextBuf: QDPtr; FirstByte,ByteCount: Integer)
  679. *              : Integer;
  680.     INTEGER TEXTWIDTH
  681.     PARAMETER (TEXTWIDTH=Z'88651200')
  682.  
  683. * PROCEDURE TextFont (Font: Integer);
  684.     INTEGER TEXTFONT
  685.     PARAMETER (TEXTFONT=Z'88708000')
  686.  
  687. * PROCEDURE TextFace (Face: Style);
  688.     INTEGER TEXTFACE
  689.     PARAMETER (TEXTFACE=Z'88808000')
  690.  
  691. * PROCEDURE TextMode (Mode: Integer);
  692.     INTEGER TEXTMODE
  693.     PARAMETER (TEXTMODE=Z'88908000')
  694.  
  695. * PROCEDURE TextSize (Size: Integer);
  696.     INTEGER TEXTSIZE
  697.     PARAMETER (TEXTSIZE=Z'88A08000')
  698.  
  699. * PROCEDURE GetFontInfo (VAR Info: FontInfo);
  700.     INTEGER GETFONTINFO
  701.     PARAMETER (GETFONTINFO=Z'88B30000')
  702.  
  703. * FUNCTION StringWidth (S: Str255) : Integer;
  704.     INTEGER STRINGWIDTH
  705.     PARAMETER (STRINGWIDTH=Z'88C70000')
  706.  
  707. * FUNCTION CharWidth (Ch: Char) : Integer
  708.     INTEGER CHARWIDTH
  709.     PARAMETER (CHARWIDTH=Z'88D48000')
  710.  
  711. * PROCEDURE StdLine (NewPt: Point);
  712.     INTEGER STDLINE
  713.     PARAMETER (STDLINE=Z'89010000')
  714.  
  715. * PROCEDURE Lineto (H,V: Integer);
  716.     INTEGER LINETO
  717.     PARAMETER (LINETO=Z'89109000')
  718.  
  719. * PROCEDURE Line (Dh,Dv: Integer);
  720.     INTEGER LINE
  721.     PARAMETER (LINE=Z'89209000')
  722.  
  723. * PROCEDURE Moveto (H,V: Integer);
  724.     INTEGER MOVETO
  725.     PARAMETER (MOVETO=Z'89309000')
  726.  
  727. * PROCEDURE Move (Dh,Dv: Integer);
  728.     INTEGER MOVE
  729.     PARAMETER (MOVE=Z'89409000')
  730.  
  731. * PROCEDURE HidePen ;
  732.     INTEGER HIDEPEN
  733.     PARAMETER (HIDEPEN=Z'89600000')
  734.  
  735. * PROCEDURE ShowPen ;
  736.     INTEGER SHOWPEN
  737.     PARAMETER (SHOWPEN=Z'89700000')
  738.  
  739. * PROCEDURE GetPenState (VAR PnState: PenState);
  740.     INTEGER GETPENSTATE
  741.     PARAMETER (GETPENSTATE=Z'89830000')
  742.  
  743. * PROCEDURE SetPenState (PnState: PenState);
  744.     INTEGER SETPENSTATE
  745.     PARAMETER (SETPENSTATE=Z'89930000')
  746.  
  747. * PROCEDURE GetPen (VAR Pt: Point);
  748.     INTEGER GETPEN
  749.     PARAMETER (GETPEN=Z'89A30000')
  750.  
  751. * PROCEDURE PenSize (Width,Height: Integer);
  752.     INTEGER PENSIZE
  753.     PARAMETER (PENSIZE=Z'89B09000')
  754.  
  755. * PROCEDURE PenMode (Mode: Integer);
  756.     INTEGER PENMODE
  757.     PARAMETER (PENMODE=Z'89C08000')
  758.  
  759. * PROCEDURE Penpat (Pat: Pattern);
  760.     INTEGER PENPAT
  761.     PARAMETER (PENPAT=Z'89D30000')
  762.  
  763. * PROCEDURE PenNormal ;
  764.     INTEGER PENNORMAL
  765.     PARAMETER (PENNORMAL=Z'89E00000')
  766.  
  767. * PROCEDURE StdRect (Verb: GrafVerb; R: Rect);
  768.     INTEGER STDRECT
  769.     PARAMETER (STDRECT=Z'8A00E000')
  770.  
  771. * PROCEDURE FrameRect (R: Rect);
  772.     INTEGER FRAMERECT
  773.     PARAMETER (FRAMERECT=Z'8A130000')
  774.  
  775. * PROCEDURE PaintRect (R: Rect);
  776.     INTEGER PAINTRECT
  777.     PARAMETER (PAINTRECT=Z'8A230000')
  778.  
  779. * PROCEDURE EraseRect (R: Rect);
  780.     INTEGER ERASERECT
  781.     PARAMETER (ERASERECT=Z'8A330000')
  782.  
  783. * PROCEDURE InvertRect (R: Rect);
  784.     INTEGER INVERTRECT
  785.     PARAMETER (INVERTRECT=Z'8A430000')
  786.  
  787. * PROCEDURE FillRect (R: Rect; Pat: Pattern);
  788.     INTEGER FILLRECT
  789.     PARAMETER (FILLRECT=Z'8A536000')
  790.  
  791. * FUNCTION EqualRect (RectA,RectB: Rect) : Boolean;
  792.     INTEGER EQUALRECT
  793.     PARAMETER (EQUALRECT=Z'8A6F6000')
  794.  
  795. * PROCEDURE SetRect (VAR R: Rect; Left,Top,Right,Bottom: Integer);
  796.     INTEGER SETRECT
  797.     PARAMETER (SETRECT=Z'8A731248')
  798.  
  799. * PROCEDURE OffsetRect (VAR R: Rect; Dh,Dv: Integer);
  800.     INTEGER OFFSETRECT
  801.     PARAMETER (OFFSETRECT=Z'8A831200')
  802.  
  803. * PROCEDURE InsetRect (VAR R: Rect; Dh,Dv: Integer)
  804.     INTEGER INSETRECT
  805.     PARAMETER (INSETRECT=Z'8A931200')
  806.  
  807. * FUNCTION SectRect (SrcRectA,SrcRectB: Rect; VAR DstRect: Rect) : Boolean;
  808.     INTEGER SECTRECT
  809.     PARAMETER (SECTRECT=Z'8AAF6C00')
  810.  
  811. * PROCEDURE UnionRect (SrcRectA,SrcRectB: Rect; VAR DstRect: Rect);
  812.     INTEGER UNIONRECT
  813.     PARAMETER (UNIONRECT=Z'8AB36C00')
  814.  
  815. * PROCEDURE Pt2Rect (PtA,PtB: Point; VAR dstRect: Rect);
  816.     INTEGER PT2RECT
  817.     PARAMETER (PT2RECT=Z'8AC12C00')
  818.  
  819. * FUNCTION PtInRect (Pt: Point; R: Rect) : Boolean;
  820.     INTEGER PTINRECT
  821.     PARAMETER (PTINRECT=Z'8ADD6000')
  822.  
  823. * FUNCTION EmptyRect (R: Rect) : Boolean;
  824.     INTEGER EMPTYRECT
  825.     PARAMETER (EMPTYRECT=Z'8AEF0000')
  826.  
  827. * PROCEDURE StdRRect (Verb: GrafVerb; R: Rect; Ovalwidth,OvalHeight
  828. *              : Integer);
  829.     INTEGER STDRRECT
  830.     PARAMETER (STDRRECT=Z'8AF0E240')
  831.  
  832. * PROCEDURE FrameRoundRect (R: Rect; OvalWidth,OvalHeight: Integer);
  833.     INTEGER FRAMEROUNDRECT
  834.     PARAMETER (FRAMEROUNDRECT=Z'8B031200')
  835.  
  836. * PROCEDURE PaintRountRect (R: Rect; OvalWidth,OvalHeight: Integer);
  837.     INTEGER PAINTROUNTRECT
  838.     PARAMETER (PAINTROUNTRECT=Z'8B131200')
  839.  
  840. * PROCEDURE EraseRoundRect (R: Rect; OvalWidth,OvalHeight: Integer);
  841.     INTEGER ERASEROUNDRECT
  842.     PARAMETER (ERASEROUNDRECT=Z'8B231200')
  843.  
  844. * PROCEDURE InvertRoundRect (R: Rect; OvalWidth,OvalHeight: Integer);
  845.     INTEGER INVERTROUNDRECT
  846.     PARAMETER (INVERTROUNDRECT=Z'8B331200')
  847.  
  848. * PROCEDURE FillRoundRect (R: Rect; OvalWidth,OvalHeight: Integer;
  849. *               Pat: Pattern);
  850.     INTEGER FILLROUNDRECT
  851.     PARAMETER (FILLROUNDRECT=Z'8B431380')
  852.  
  853. * PROCEDURE StdOval (Verb: GrafVerb; R: Rect);
  854.     INTEGER STDOVAL
  855.     PARAMETER (STDOVAL=Z'8B60E000')
  856.  
  857. * PROCEDURE FrameOval (R: Rect);
  858.     INTEGER FRAMEOVAL
  859.     PARAMETER (FRAMEOVAL=Z'8B730000')
  860.  
  861. * PROCEDURE PaintOval (R: Rect);
  862.     INTEGER PAINTOVAL
  863.     PARAMETER (PAINTOVAL=Z'8B830000')
  864.  
  865. * PROCEDURE EraseOval (R: Rect);
  866.     INTEGER ERASEOVAL
  867.     PARAMETER (ERASEOVAL=Z'8B930000')
  868.  
  869. * PROCEDURE InvertOval (R: Rect);
  870.     INTEGER INVERTOVAL
  871.     PARAMETER (INVERTOVAL=Z'8BA30000')
  872.  
  873. * PROCEDURE FillOval (R: Rect; Pat: Pattern);
  874.     INTEGER FILLOVAL
  875.     PARAMETER (FILLOVAL=Z'8BB36000')
  876.  
  877. * FUNCTION SlopeFromAngle (angle: INTEGER) : Fixed;
  878.     INTEGER SLOPEFROMANGLE
  879.     PARAMETER (SLOPEFROMANGLE=Z'8BC88000')
  880.  
  881. * PROCEDURE StdArc (Verb: GrafVerb; R: Rect; StartAngle,ArcAngle: Integer);
  882.     INTEGER STDARC
  883.     PARAMETER (STDARC=Z'8BD0E240')
  884.  
  885. * PROCEDURE FrameArc (R: Rect; StartAngle,ArcAngle: Integer);
  886.     INTEGER FRAMEARC
  887.     PARAMETER (FRAMEARC=Z'8BE31200')
  888.  
  889. * PROCEDURE PaintArc (R: Rect; StartAngle,ArcAngle: Integer);
  890.     INTEGER PAINTARC
  891.     PARAMETER (PAINTARC=Z'8BF31200')
  892.  
  893. * PROCEDURE EraseArc (R: Rect; StartAngle,ArcAngle: Integer);
  894.     INTEGER ERASEARC
  895.     PARAMETER (ERASEARC=Z'8C031200')
  896.  
  897. * PROCEDURE InvertArc (R: Rect; StartAngle,ArcAngle: Integer);
  898.     INTEGER INVERTARC
  899.     PARAMETER (INVERTARC=Z'8C131200')
  900.  
  901. * PROCEDURE FillArc (R: Rect; StartAngle,ArcAngle: Integer;Pat: Pattern);
  902.     INTEGER FILLARC
  903.     PARAMETER (FILLARC=Z'8C231380')
  904.  
  905. * PROCEDURE PtToAngle (R: Rect; Pt: Point; VAR Angle: Integer);
  906.     INTEGER PTTOANGLE
  907.     PARAMETER (PTTOANGLE=Z'8C332C00')
  908.  
  909. * FUNCTION AngleFromSlope (slope: Fixed) : INTEGER;
  910.     INTEGER ANGLEFROMSLOPE
  911.     PARAMETER (ANGLEFROMSLOPE=Z'8C450000')
  912.  
  913. * PROCEDURE StdPoly (Verb: GrafVerb; Poly: PolyHandle);
  914.     INTEGER STDPOLY
  915.     PARAMETER (STDPOLY=Z'8C50A000')
  916.  
  917. * PROCEDURE FramePoly (Poly: PolyHandle);
  918.     INTEGER FRAMEPOLY
  919.     PARAMETER (FRAMEPOLY=Z'8C610000')
  920.  
  921. * PROCEDURE PaintPoly (Poly: PolyHandle);
  922.     INTEGER PAINTPOLY
  923.     PARAMETER (PAINTPOLY=Z'8C710000')
  924.  
  925. * PROCEDURE ErasePoly (Poly: PolyHandle);
  926.     INTEGER ERASEPOLY
  927.     PARAMETER (ERASEPOLY=Z'8C810000')
  928.  
  929. * PROCEDURE InvertPoly (Poly: PolyHandle);
  930.     INTEGER INVERTPOLY
  931.     PARAMETER (INVERTPOLY=Z'8C910000')
  932.  
  933. * PROCEDURE FillPoly (Poly: PolyHandle;Pat: Pattern);
  934.     INTEGER FILLPOLY
  935.     PARAMETER (FILLPOLY=Z'8CA16000')
  936.  
  937. * FUNCTION OpenPoly : PolyHandle;
  938.     INTEGER OPENPOLY
  939.     PARAMETER (OPENPOLY=Z'8CB80000')
  940.  
  941. * PROCEDURE ClosePoly ;
  942.     INTEGER CLOSEPOLY
  943.     PARAMETER (CLOSEPOLY=Z'8CC00000')
  944.  
  945. * PROCEDURE KillPoly (Poly: PolyHandle);
  946.     INTEGER KILLPOLY
  947.     PARAMETER (KILLPOLY=Z'8CD10000')
  948.  
  949. * PROCEDURE OffsetPoly (Poly: PolyHandle; Dh,Dv: Integer);
  950.     INTEGER OFFSETPOLY
  951.     PARAMETER (OFFSETPOLY=Z'8CE11200')
  952.  
  953. * PROCEDURE PackBits (VAR srcPtr,dstPtr: Ptr; srcBytes: INTEGER);
  954.     INTEGER PACKBITS
  955.     PARAMETER (PACKBITS=Z'8CF36200')
  956.  
  957. * UnpackBits (VAR srcPtr,dstPtr: Ptr; dstBytes: INTEGER);
  958.     INTEGER UNPACKBITS
  959.     PARAMETER (UNPACKBITS=Z'8D036200')
  960.  
  961. * PROCEDURE StdRgn (Verb: GrafVerb; Rgn: RgnHandle);
  962.     INTEGER STDRGN
  963.     PARAMETER (STDRGN=Z'8D10A000')
  964.  
  965. * PROCEDURE FrameRgn (Rgn: RgnHandle);
  966.     INTEGER FRAMERGN
  967.     PARAMETER (FRAMERGN=Z'8D210000')
  968.  
  969. * PROCEDURE PaintRgn (Rgn: RgnHandle);
  970.     INTEGER PAINTRGN
  971.     PARAMETER (PAINTRGN=Z'8D310000')
  972.  
  973. * PROCEDURE EraseRgn (Rgn: RgnHandle);
  974.     INTEGER ERASERGN
  975.     PARAMETER (ERASERGN=Z'8D410000')
  976.  
  977. * PROCEDURE InvertRgn (Rgn: RgnHandle);
  978.     INTEGER INVERTRGN
  979.     PARAMETER (INVERTRGN=Z'8D510000')
  980.  
  981. * PROCEDURE FillRgn (Rgn: RgnHandle; Pat: Pattern);
  982.     INTEGER FILLRGN
  983.     PARAMETER (FILLRGN=Z'8D616000')
  984.  
  985. * FUNCTION NewRgn : RgnHandle;
  986.     INTEGER NEWRGN
  987.     PARAMETER (NEWRGN=Z'8D880000')
  988.  
  989. * PROCEDURE DisposeRgn (Rgn: RgnHandle);
  990.     INTEGER DISPOSERGN
  991.     PARAMETER (DISPOSERGN=Z'8D910000')
  992.  
  993. * PROCEDURE OpenRgn ;
  994.     INTEGER OPENRGN
  995.     PARAMETER (OPENRGN=Z'8DA00000')
  996.  
  997. * PROCEDURE CloseRgn (DstRgn: RgnHandle);
  998.     INTEGER CLOSERGN
  999.     PARAMETER (CLOSERGN=Z'8DB10000')
  1000.  
  1001. * PROCEDURE CopyRgn (SrcRgn,DstRgn: RgnHandle);
  1002.     INTEGER COPYRGN
  1003.     PARAMETER (COPYRGN=Z'8DC12000')
  1004.  
  1005. * PROCEDURE SetEmptyRgn (Rgn: RgnHandle);
  1006.     INTEGER SETEMPTYRGN
  1007.     PARAMETER (SETEMPTYRGN=Z'8DD10000')
  1008.  
  1009. * PROCEDURE SetRectRgn (Rgn: RgnHandle; Left,Top,Right,Bottom: Integer);
  1010.     INTEGER SETRECTRGN
  1011.     PARAMETER (SETRECTRGN=Z'8DE11248')
  1012.  
  1013. * PROCEDURE RectRgn (Rgn: RgnHandle; R: Rect);
  1014.     INTEGER RECTRGN
  1015.     PARAMETER (RECTRGN=Z'8DF16000')
  1016.  
  1017. * PROCEDURE OffsetRgn (Rgn: RgnHandle; Dh,Dv: Integer);
  1018.     INTEGER OFFSETRGN
  1019.     PARAMETER (OFFSETRGN=Z'8E011200')
  1020.  
  1021. * PROCEDURE InsetRgn (Rgn: RgnHandle; Dh,Dv: Integer);
  1022.     INTEGER INSETRGN
  1023.     PARAMETER (INSETRGN=Z'8E111200')
  1024.  
  1025. * FUNCTION EmptyRgn (Rgn: RgnHandle): Boolean;
  1026.     INTEGER EMPTYRGN
  1027.     PARAMETER (EMPTYRGN=Z'8E2D0000')
  1028.  
  1029. * FUNCTION EqualRgn (RgnA,RgnB: RgnHandle): Boolean;
  1030.     INTEGER EQUALRGN
  1031.     PARAMETER (EQUALRGN=Z'8E3D2000')
  1032.  
  1033. * PROCEDURE SectRgn (SrcRgnA,SrcRgnB,DstRgn: RgnHandle);
  1034.     INTEGER SECTRGN
  1035.     PARAMETER (SECTRGN=Z'8E412400')
  1036.  
  1037. * PROCEDURE UnionRgn (SrcRgnA,SrcRgnB,DstRgn: RgnHandle);
  1038.     INTEGER UNIONRGN
  1039.     PARAMETER (UNIONRGN=Z'8E512400')
  1040.  
  1041. * PROCEDURE DiffRgn (SrcRgnA,SrcRgnB,DstRgn: RgnHandle);
  1042.     INTEGER DIFFRGN
  1043.     PARAMETER (DIFFRGN=Z'8E612400')
  1044.  
  1045. * PROCEDURE XOrRgn (SrcRgnA,SrcRgnB,DstRgn: RgnHandle);
  1046.     INTEGER XORRGN
  1047.     PARAMETER (XORRGN=Z'8E712400')
  1048.  
  1049. * FUNCTION PtInRgn (Pt: Point; Rgn: RgnHandle): Boolean;
  1050.     INTEGER PTINRGN
  1051.     PARAMETER (PTINRGN=Z'8E8D2000')
  1052.  
  1053. * FUNCTION RectInRgn (R: Rect; Rgn: RgnHandle): Boolean;
  1054.     INTEGER RECTINRGN
  1055.     PARAMETER (RECTINRGN=Z'8E9F2000')
  1056.  
  1057. * PROCEDURE SetStdProcs (VAR Procs: QDProcs);
  1058.     INTEGER SETSTDPROCS
  1059.     PARAMETER (SETSTDPROCS=Z'8EA30000')
  1060.  
  1061. * PROCEDURE StdBits (VAR SrcBits: BitMap; VAR SrcRect,DstRect: Rect;
  1062. *             Mode: Integer; MaskRgn: RgnHandle);
  1063.     INTEGER STDBITS
  1064.     PARAMETER (STDBITS=Z'8EB36C50')
  1065.  
  1066. * PROCEDURE CopyBits (SrcBits,DstBits: BitMap; SrcRect,DstRect: Rect;
  1067. *              Mode: Integer; MaskRgn: RgnHandle);
  1068.     INTEGER COPYBITS
  1069.     PARAMETER (COPYBITS=Z'8EC36D8A')
  1070.  
  1071. * FUNCTION StdTxMeasure (ByteCount: Integer; TextBuf: QDPtr; VAR Numer,
  1072. *             Denom: Point; VAR Info: FontInfo): Integer;
  1073.     INTEGER STDTXMEASURE
  1074.     PARAMETER (STDTXMEASURE=Z'8ED4ADB0')
  1075.  
  1076. * PROCEDURE StdGetPic (DataPtr: QDPtr; ByteCount: Integer);
  1077.     INTEGER STDGETPIC
  1078.     PARAMETER (STDGETPIC=Z'8EE11000')
  1079.  
  1080. * PROCEDURE ScrollRect (R: Rect; Dh,Dv: Integer; UpdateRgn: RgnHandle);
  1081.     INTEGER SCROLLRECT
  1082.     PARAMETER (SCROLLRECT=Z'8EF31280')
  1083.  
  1084. * PROCEDURE StdPutPic (DataPtr: QDPtr; ByteCount: Integer);
  1085.     INTEGER STDPUTPIC
  1086.     PARAMETER (STDPUTPIC=Z'8F011000')
  1087.  
  1088. * PROCEDURE StdComment (Kind,DataSize: Integer; DataHandle: QDHandle);
  1089.     INTEGER STDCOMMENT
  1090.     PARAMETER (STDCOMMENT=Z'8F109400')
  1091.  
  1092. * PROCEDURE PicComment (Kind,DataSize: Integer; DataHandle: QDHandle);
  1093.     INTEGER PICCOMMENT
  1094.     PARAMETER (PICCOMMENT=Z'8F209400')
  1095.  
  1096. * FUNCTION OpenPicture (PicFrame: Rect): PicHandle;
  1097.     INTEGER OPENPICTURE
  1098.     PARAMETER (OPENPICTURE=Z'8F3B0000')
  1099.  
  1100. * PROCEDURE ClosePicture ;
  1101.     INTEGER CLOSEPICTURE
  1102.     PARAMETER (CLOSEPICTURE=Z'8F400000')
  1103.  
  1104. * PROCEDURE KillPicture (MyPicture: PicHandle);
  1105.     INTEGER KILLPICTURE
  1106.     PARAMETER (KILLPICTURE=Z'8F510000')
  1107.  
  1108. * PROCEDURE DrawPicture (MyPicture: PicHandle; DstRect: Rect);
  1109.     INTEGER DRAWPICTURE
  1110.     PARAMETER (DRAWPICTURE=Z'8F616000')
  1111.  
  1112. * PROCEDURE ScalePt (VAR Pt: Point; SrcRect,DstRect: Rect);
  1113.     INTEGER SCALEPT
  1114.     PARAMETER (SCALEPT=Z'8F836C00')
  1115.  
  1116. * PROCEDURE MapPt (VAR Pt: Point; SrcRect,DstRect: Rect);
  1117.     INTEGER MAPPT
  1118.     PARAMETER (MAPPT=Z'8F936C00')
  1119.  
  1120. * PROCEDURE MapRect (VAR R: Rect; SrcRect,DstRect: Rect);
  1121.     INTEGER MAPRECT
  1122.     PARAMETER (MAPRECT=Z'8FA36C00')
  1123.  
  1124. * PROCEDURE MapRgn (VAR Rgn: RgnHandle; SrcRect,DstRect: Rect);
  1125.     INTEGER MAPRGN
  1126.     PARAMETER (MAPRGN=Z'8FB36C00')
  1127.  
  1128. * PROCEDURE MapPoly (VAR Poly: PolyHandle; SrcRect,DstRect: Rect);
  1129.     INTEGER MAPPOLY
  1130.     PARAMETER (MAPPOLY=Z'8FC36C00')
  1131.  
  1132. * PROCEDURE InitFonts ;
  1133.     INTEGER INITFONTS
  1134.     PARAMETER (INITFONTS=Z'8FE00000')
  1135.  
  1136. * PROCEDURE GetFontName (FontNum: Integer; VAR TheName: Str255);
  1137.     INTEGER GETFONTNAME
  1138.     PARAMETER (GETFONTNAME=Z'8FF0E000')
  1139.  
  1140. * PROCEDURE GetFNum (FontName: Str255; VAR TheNum: Integer);
  1141.     INTEGER GETFNUM
  1142.     PARAMETER (GETFNUM=Z'90036000')
  1143.  
  1144. * FUNCTION SwapFont (InRec: FMInput): FMOutPtr;
  1145.     INTEGER SWAPFONT
  1146.     PARAMETER (SWAPFONT=Z'901B0000')
  1147.  
  1148. * FUNCTION RealFont (FontNum: Integer; Size: Integer): Boolean;
  1149.     INTEGER REALFONT
  1150.     PARAMETER (REALFONT=Z'902C9000')
  1151.  
  1152. * PROCEDURE SetFontLock (LockFlag: Boolean);
  1153.     INTEGER SETFONTLOCK
  1154.     PARAMETER (SETFONTLOCK=Z'90318000')
  1155.  
  1156. * PROCEDURE DrawGrowIcon (TheWindow: WindowPtr);
  1157.     INTEGER DRAWGROWICON
  1158.     PARAMETER (DRAWGROWICON=Z'90410000')
  1159.  
  1160. * FUNCTION DragGreyRgn (TheRgn: RgnHandle; StartPt: Point; LimitRect,
  1161. *            SlopRect: Rect; Axis: Integer; ActionProc:
  1162. *            ProcPtr): Integer;
  1163.     INTEGER DRAGGREYRGN
  1164.     PARAMETER (DRAGGREYRGN=Z'90592D8A')
  1165.  
  1166. * FUNCTION NewString (S: Str255): StringHandle;
  1167.     INTEGER NEWSTRING
  1168.     PARAMETER (NEWSTRING=Z'906B0000')
  1169.  
  1170. * PROCEDURE SetString (H: StringHandle; S: Str255);
  1171.     INTEGER SETSTRING
  1172.     PARAMETER (SETSTRING=Z'90716000')
  1173.  
  1174. * PROCEDURE ShowHide (TheWindow: WindowPtr; ShowFlg: Boolean);
  1175.     INTEGER SHOWHIDE
  1176.     PARAMETER (SHOWHIDE=Z'90813000')
  1177.  
  1178. * PROCEDURE CalcVis (Window: WindowPeek);
  1179.     INTEGER CALCVIS
  1180.     PARAMETER (CALCVIS=Z'90910000')
  1181.  
  1182. * PROCEDURE CalcVisBehind (StartWindow: WindowPeek; ClobberedRgn: RgnHandle);
  1183.     INTEGER CALCVISBEHIND
  1184.     PARAMETER (CALCVISBEHIND=Z'90A12000')
  1185.  
  1186. * PROCEDURE ClipAbove (Window: WindowPeek);
  1187.     INTEGER CLIPABOVE
  1188.     PARAMETER (CLIPABOVE=Z'90B10000')
  1189.  
  1190. * PROCEDURE PaintOne (Window: WindowPeek; ClobberedRgn: RgnHandle);
  1191.     INTEGER PAINTONE
  1192.     PARAMETER (PAINTONE=Z'90C12000')
  1193.  
  1194. * PROCEDURE PaintBehind (StartWindow: WindowPeek; ClobberedRgn: RgnHandle);
  1195.     INTEGER PAINTBEHIND
  1196.     PARAMETER (PAINTBEHIND=Z'90D12000')
  1197.  
  1198. * PROCEDURE SaveOld (Window: WindowPeek);
  1199.     INTEGER SAVEOLD
  1200.     PARAMETER (SAVEOLD=Z'90E10000')
  1201.  
  1202. * PROCEDURE DragNew (Window: WindowPeek; Update: Boolean);
  1203.     INTEGER DRAGNEW
  1204.     PARAMETER (DRAGNEW=Z'90F13000')
  1205.  
  1206. * PROCEDURE GetWMgrPort (VAR WPort: GrafPtr);
  1207.     INTEGER GETWMGRPORT
  1208.     PARAMETER (GETWMGRPORT=Z'91030000')
  1209.  
  1210. * FUNCTION CheckUpDate (VAR TheEvent: EventRecord): Boolean;
  1211.     INTEGER CHECKUPDATE
  1212.     PARAMETER (CHECKUPDATE=Z'911F0000')
  1213.  
  1214. * PROCEDURE InitWindows ;
  1215.     INTEGER INITWINDOWS
  1216.     PARAMETER (INITWINDOWS=Z'91200000')
  1217.  
  1218. * FUNCTION NewWindow (WStorage: Ptr; BoundsRect: Rect; Title: Str255;
  1219. *              Visible: Boolean; ProcID: Integer; Behind: WindowPtr;
  1220. *              GoAwayFlag: Boolean; RefCon: LongInt): WindowPtr;
  1221.     INTEGER NEWWINDOW
  1222.     PARAMETER (NEWWINDOW=Z'B1300000')
  1223.  
  1224. * PROCEDURE DisposeWindow (TheWindow: WindowPtr);
  1225.     INTEGER DISPOSEWINDOW
  1226.     PARAMETER (DISPOSEWINDOW=Z'91410000')
  1227.  
  1228. * PROCEDURE ShowWindow (TheWindow: WindowPtr);
  1229.     INTEGER SHOWWINDOW
  1230.     PARAMETER (SHOWWINDOW=Z'91510000')
  1231.  
  1232. * PROCEDURE HideWindow (TheWindow: WindowPtr);
  1233.     INTEGER HIDEWINDOW
  1234.     PARAMETER (HIDEWINDOW=Z'91610000')
  1235.  
  1236. * FUNCTION GetWRefCon (TheWindow: WindowPtr): LongInt;
  1237.     INTEGER GETWREFCON
  1238.     PARAMETER (GETWREFCON=Z'91790000')
  1239.  
  1240. * PROCEDURE SetWRefCon (TheWindow: WindowPtr; Data: LongInt);
  1241.     INTEGER SETWREFCON
  1242.     PARAMETER (SETWREFCON=Z'91812000')
  1243.  
  1244. * PROCEDURE GetWTitle (TheWindow: WindowPtr; VAR Title: Str255);
  1245.     INTEGER GETWTITLE
  1246.     PARAMETER (GETWTITLE=Z'91916000')
  1247.  
  1248. * PROCEDURE SetWTitle (TheWindow: WindowPtr; Title: Str255);
  1249.     INTEGER SETWTITLE
  1250.     PARAMETER (SETWTITLE=Z'91A16000')
  1251.  
  1252. * PROCEDURE MoveWindow (TheWindow: WindowPtr; HGlobal,VGlobal: Integer;
  1253. *            Front: Boolean);
  1254.     INTEGER MOVEWINDOW
  1255.     PARAMETER (MOVEWINDOW=Z'91B112C0')
  1256.  
  1257. * PROCEDURE HiliteWindow (TheWindow: WindowPtr; FHilite: Boolean);
  1258.     INTEGER HILITEWINDOW
  1259.     PARAMETER (HILITEWINDOW=Z'91C13000')
  1260.  
  1261. * PROCEDURE SizeWindow (TheWindow: WindowPtr; W,H: Integer;
  1262. *            FUpdate: Boolean);
  1263.     INTEGER SIZEWINDOW
  1264.     PARAMETER (SIZEWINDOW=Z'91D112C0')
  1265.  
  1266. * FUNCTION TrackGoAway (TheWindow: WindowPtr; ThePt: Point): Boolean;
  1267.     INTEGER TRACKGOAWAY
  1268.     PARAMETER (TRACKGOAWAY=Z'91ED2000')
  1269.  
  1270. * PROCEDURE SelectWindow (TheWindow: WindowPtr);
  1271.     INTEGER SELECTWINDOW
  1272.     PARAMETER (SELECTWINDOW=Z'91F10000')
  1273.  
  1274. * PROCEDURE BringToFront (TheWindow: WindowPtr);
  1275.     INTEGER BRINGTOFRONT
  1276.     PARAMETER (BRINGTOFRONT=Z'92010000')
  1277.  
  1278. * PROCEDURE SendBehind (TheWindow: WindowPtr; BehindWindow: WindowPtr);
  1279.     INTEGER SENDBEHIND
  1280.     PARAMETER (SENDBEHIND=Z'92112000')
  1281.  
  1282. * PROCEDURE BeginUpdate (TheWindow: WindowPtr);
  1283.     INTEGER BEGINUPDATE
  1284.     PARAMETER (BEGINUPDATE=Z'92210000')
  1285.  
  1286. * PROCEDURE EndUpdate (TheWindow: WindowPtr);
  1287.     INTEGER ENDUPDATE
  1288.     PARAMETER (ENDUPDATE=Z'92310000')
  1289.  
  1290. * FUNCTION FrontWindow : WindowPtr;
  1291.     INTEGER FRONTWINDOW
  1292.     PARAMETER (FRONTWINDOW=Z'92480000')
  1293.  
  1294. * PROCEDURE DragWindow (TheWindow: WindowPtr; StartPt: Point;
  1295. *            BoundsRect: Rect);
  1296.     INTEGER DRAGWINDOW
  1297.     PARAMETER (DRAGWINDOW=Z'92512C00')
  1298.  
  1299. * PROCEDURE InvalRgn (BadRgn: RgnHandle);
  1300.     INTEGER INVALRGN
  1301.     PARAMETER (INVALRGN=Z'92710000')
  1302.  
  1303. * PROCEDURE InvalRect (BadRect: Rect);
  1304.     INTEGER INVALRECT
  1305.     PARAMETER (INVALRECT=Z'92830000')
  1306.  
  1307. * PROCEDURE ValidRgn (GoodRgn: RgnHandle);
  1308.     INTEGER VALIDRGN
  1309.     PARAMETER (VALIDRGN=Z'92910000')
  1310.  
  1311. * PROCEDURE ValidRect (GoodRect: Rect);
  1312.     INTEGER VALIDRECT
  1313.     PARAMETER (VALIDRECT=Z'92A30000')
  1314.  
  1315. * FUNCTION GrowWindow (TheWindow: WindowPtr; StartPt: Point;
  1316. *               SizeRect: Rect): LongInt;
  1317.     INTEGER GROWWINDOW
  1318.     PARAMETER (GROWWINDOW=Z'92B92C00')
  1319.  
  1320. * FUNCTION FindWindow (ThePt: Point; VAR WhichWindow: WindowPtr): Integer;
  1321.     INTEGER FINDWINDOW
  1322.     PARAMETER (FINDWINDOW=Z'92C56000')
  1323.  
  1324. * PROCEDURE CloseWindow (TheWindow: WindowPtr);
  1325.     INTEGER CLOSEWINDOW
  1326.     PARAMETER (CLOSEWINDOW=Z'92D10000')
  1327.  
  1328. * PROCEDURE SetWindowPic (TheWindow: WindowPtr; Pic: PicHandle);
  1329.     INTEGER SETWINDOWPIC
  1330.     PARAMETER (SETWINDOWPIC=Z'92E12000')
  1331.  
  1332. * FUNCTION GetWindowPic (TheWindow: WindowPtr): PicHandle
  1333.     INTEGER GETWINDOWPIC
  1334.     PARAMETER (GETWINDOWPIC=Z'92F90000')
  1335.  
  1336. * PROCEDURE InitMenus ;
  1337.     INTEGER INITMENUS
  1338.     PARAMETER (INITMENUS=Z'93000000')
  1339.  
  1340. * FUNCTION NewMenu (MenuID: Integer; MenuTitle: Str255): MenuHandle;
  1341.     INTEGER NEWMENU
  1342.     PARAMETER (NEWMENU=Z'9318E000')
  1343.  
  1344. * PROCEDURE DisposeMenu (Menu: MenuHandle);
  1345.     INTEGER DISPOSEMENU
  1346.     PARAMETER (DISPOSEMENU=Z'93210000')
  1347.  
  1348. * PROCEDURE AppendMenu (Menu: MenuHandle; Data: Str255);
  1349.     INTEGER APPENDMENU
  1350.     PARAMETER (APPENDMENU=Z'93316000')
  1351.  
  1352. * PROCEDURE ClearMenuBar ;
  1353.     INTEGER CLEARMENUBAR
  1354.     PARAMETER (CLEARMENUBAR=Z'93400000')
  1355.  
  1356. * PROCEDURE InsertMenu (Menu: MenuHandle; BeforeID: Integer);
  1357.     INTEGER INSERTMENU
  1358.     PARAMETER (INSERTMENU=Z'93511000')
  1359.  
  1360. * PROCEDURE DeleteMenu (MenuID: Integer);
  1361.     INTEGER DELETEMENU
  1362.     PARAMETER (DELETEMENU=Z'93608000')
  1363.  
  1364. * PROCEDURE DrawMenuBar ;
  1365.     INTEGER DRAWMENUBAR
  1366.     PARAMETER (DRAWMENUBAR=Z'93700000')
  1367.  
  1368. * PROCEDURE HiliteMenu (MenuID: Integer);
  1369.     INTEGER HILITEMENU
  1370.     PARAMETER (HILITEMENU=Z'93808000')
  1371.  
  1372. * PROCEDURE EnableItem (Menu: MenuHandle; Item: Integer);
  1373.     INTEGER ENABLEITEM
  1374.     PARAMETER (ENABLEITEM=Z'93911000')
  1375.  
  1376. * PROCEDURE DisableItem (Menu: MenuHandle; Item: Integer);
  1377.     INTEGER DISABLEITEM
  1378.     PARAMETER (DISABLEITEM=Z'93A11000')
  1379.  
  1380. * FUNCTION GetMenuBar (MenuBarID: Integer): Handle;
  1381.     INTEGER GETMENUBAR
  1382.     PARAMETER (GETMENUBAR=Z'93B88000')
  1383.  
  1384. * PROCEDURE SetMenuBar (MenuBar: Handle);
  1385.     INTEGER SETMENUBAR
  1386.     PARAMETER (SETMENUBAR=Z'93C10000')
  1387.  
  1388. * FUNCTION MenuSelect (StartPt: Point): LongInt;
  1389.     INTEGER MENUSELECT
  1390.     PARAMETER (MENUSELECT=Z'93D90000')
  1391.  
  1392. * FUNCTION MenuKey (Ch: Char): LongInt;
  1393.     INTEGER MENUKEY
  1394.     PARAMETER (MENUKEY=Z'93E88000')
  1395.  
  1396. * PROCEDURE GetItemIcon (Menu: MenuHandle; Item: Integer; VAR Icon: Integer);
  1397.     INTEGER GETITEMICON
  1398.     PARAMETER (GETITEMICON=Z'93F11C00')
  1399.  
  1400. * PROCEDURE SetItemIcon (Menu: MenuHandle; Item: Integer; Icon: Integer);
  1401.     INTEGER SETITEMICON
  1402.     PARAMETER (SETITEMICON=Z'94011200')
  1403.  
  1404. * PROCEDURE GetItemStyle (Menu: MenuHandle; Item: Integer;
  1405. *              VAR ChStyle: Style);
  1406.     INTEGER GETITEMSTYLE
  1407.     PARAMETER (GETITEMSTYLE=Z'94111C00')
  1408.  
  1409. * PROCEDURE GetItemMark (Menu: MenuHandle; Item: Integer;
  1410. *             VAR MarkChar: Char);
  1411.     INTEGER GETITEMMARK
  1412.     PARAMETER (GETITEMMARK=Z'94311C00')
  1413.  
  1414. * PROCEDURE SetItemMark (Menu: MenuHandle; Item: Integer; MarkChar: Char);
  1415.     INTEGER SETITEMMARK
  1416.     PARAMETER (SETITEMMARK=Z'94411200')
  1417.  
  1418. * PROCEDURE CheckItem (Menu: MenuHandle; Item: Integer; Checked: Boolean);
  1419.     INTEGER CHECKITEM
  1420.     PARAMETER (CHECKITEM=Z'94511600')
  1421.  
  1422. * PROCEDURE GetItem (Menu: MenuHandle; Item: Integer; VAR ItemString:
  1423. *             Str255);
  1424.     INTEGER GETITEM
  1425.     PARAMETER (GETITEM=Z'94611C00')
  1426.  
  1427. * PROCEDURE SetItem (Menu: MenuHandle; Item: Integer; ItemString: Str255);
  1428.     INTEGER SETITEM
  1429.     PARAMETER (SETITEM=Z'94711C00')
  1430.  
  1431. * PROCEDURE CalcMenuSize (Menu: MenuHandle);
  1432.     INTEGER CALCMENUSIZE
  1433.     PARAMETER (CALCMENUSIZE=Z'94810000')
  1434.  
  1435. * FUNCTION GetMHandle (MenuID: Integer): MenuHandle;
  1436.     INTEGER GETMHANDLE
  1437.     PARAMETER (GETMHANDLE=Z'94988000')
  1438.  
  1439. * PROCEDURE SetMenuFlash (Menu: MenuHandle; Count: Integer);
  1440.     INTEGER SETMENUFLASH
  1441.     PARAMETER (SETMENUFLASH=Z'94A11000')
  1442.  
  1443. * PROCEDURE PlotIcon (TheRect: Rect; TheIcon: Handle);
  1444.     INTEGER PLOTICON
  1445.     PARAMETER (PLOTICON=Z'94B32000')
  1446.  
  1447. * PROCEDURE FlashMenuBar (MenuId: Integer);
  1448.     INTEGER FLASHMENUBAR
  1449.     PARAMETER (FLASHMENUBAR=Z'94C08000')
  1450.  
  1451. * PROCEDURE AddResMenu (Menu: MenuHandle; TheType: ResType);
  1452.     INTEGER ADDRESMENU
  1453.     PARAMETER (ADDRESMENU=Z'94D12000')
  1454.  
  1455. * FUNCTION PinRect (TheRect: Rect; ThePt: Point): LongInt;
  1456.     INTEGER PINRECT
  1457.     PARAMETER (PINRECT=Z'94EB2000')
  1458.  
  1459. * FUNCTION DeltaPoint (ptA, ptB: Point) : LongInt;
  1460.     INTEGER DELTAPOINT
  1461.     PARAMETER (DELTAPOINT=Z'94F92000')
  1462.  
  1463. * FUNCTION CountMItems (Menu: MenuHandle): Integer;
  1464.     INTEGER COUNTMITEMS
  1465.     PARAMETER (COUNTMITEMS=Z'95050000')
  1466.  
  1467. * PROCEDURE InsertResMenu (Menu: MenuHandle; TheType: ResType;
  1468. *               AfterItem: Integer);
  1469.     INTEGER INSERTRESMENU
  1470.     PARAMETER (INSERTRESMENU=Z'95112200')
  1471.  
  1472. * FUNCTION NewControl (TheWindow: windowPtr; BoundsRect: Rect; Title: Str255;
  1473. *               Visible: Boolean; Value: Integer; Min,Max: Integer;
  1474. *               ProcID: Integer; RefCon: LongInt): ControlHandle;
  1475.     INTEGER NEWCONTROL
  1476.     PARAMETER (NEWCONTROL=Z'B5400001')
  1477.  
  1478. * PROCEDURE DisposeControl (TheControl: ControlHandle);
  1479.     INTEGER DISPOSECONTROL
  1480.     PARAMETER (DISPOSECONTROL=Z'95510000')
  1481.  
  1482. * PROCEDURE KillControls (TheWindow: WindowPtr);
  1483.     INTEGER KILLCONTROLS
  1484.     PARAMETER (KILLCONTROLS=Z'95610000')
  1485.  
  1486. * PROCEDURE ShowControl (TheControl: ControlHandle);
  1487.     INTEGER SHOWCONTROL
  1488.     PARAMETER (SHOWCONTROL=Z'95710000')
  1489.  
  1490. * PROCEDURE HideControl (TheControl: ControlHandle);
  1491.     INTEGER HIDECONTROL
  1492.     PARAMETER (HIDECONTROL=Z'95810000')
  1493.  
  1494. * PROCEDURE MoveControl (TheControl: ControlHandle; H,V: Integer);
  1495.     INTEGER MOVECONTROL
  1496.     PARAMETER (MOVECONTROL=Z'95911200')
  1497.  
  1498. * FUNCTION GetCRefCon (TheControl: ControlHandle): LongInt;
  1499.     INTEGER GETCREFCON
  1500.     PARAMETER (GETCREFCON=Z'95A90000')
  1501.  
  1502. * PROCEDURE SetCRefCon (TheControl: ControlHandle; Data: LongInt);
  1503.     INTEGER SETCREFCON
  1504.     PARAMETER (SETCREFCON=Z'95B12000')
  1505.  
  1506. * PROCEDURE SizeControl (TheControl: ControlHandle; W,H: Integer);
  1507.     INTEGER SIZECONTROL
  1508.     PARAMETER (SIZECONTROL=Z'95C11200')
  1509.  
  1510. * PROCEDURE HiliteControl (TheControl: ControlHandle; HiliteState: Integer);
  1511.     INTEGER HILITECONTROL
  1512.     PARAMETER (HILITECONTROL=Z'95D11000')
  1513.  
  1514. * PROCEDURE GetCTitle (TheControl: ControlHandle; VAR Title: Str255);
  1515.     INTEGER GETCTITLE
  1516.     PARAMETER (GETCTITLE=Z'95E16000')
  1517.  
  1518. * PROCEDURE SetCTitle (TheControl: ControlHandle; Title: Str255);
  1519.     INTEGER SETCTITLE
  1520.     PARAMETER (SETCTITLE=Z'95F16000')
  1521.  
  1522. * FUNCTION GetCtlValue (TheControl: ControlHandle): Integer;
  1523.     INTEGER GETCTLVALUE
  1524.     PARAMETER (GETCTLVALUE=Z'96050000')
  1525.  
  1526. * FUNCTION GetCtlMin (TheControl: ControlHandle): Integer;
  1527.     INTEGER GETCTLMIN
  1528.     PARAMETER (GETCTLMIN=Z'96150000')
  1529.  
  1530. * FUNCTION GetCtlMax (TheControl: ControlHandle): Integer;
  1531.     INTEGER GETCTLMAX
  1532.     PARAMETER (GETCTLMAX=Z'96250000')
  1533.  
  1534. * PROCEDURE SetCtlValue (TheControl: ControlHandle; TheValue: Integer);
  1535.     INTEGER SETCTLVALUE
  1536.     PARAMETER (SETCTLVALUE=Z'96311000')
  1537.  
  1538. * PROCEDURE SetCtlMin (TheControl: ControlHandle; MinValue: Integer);
  1539.     INTEGER SETCTLMIN
  1540.     PARAMETER (SETCTLMIN=Z'96411000')
  1541.  
  1542. * PROCEDURE SetCtlMax (TheControl: ControlHandle; MaxValue: Integer);
  1543.     INTEGER SETCTLMAX
  1544.     PARAMETER (SETCTLMAX=Z'96511000')
  1545.  
  1546. * FUNCTION TestControl (TheControl: ControlHandle; ThePoint: Point): Integer;
  1547.     INTEGER TESTCONTROL
  1548.     PARAMETER (TESTCONTROL=Z'96652000')
  1549.  
  1550. * PROCEDURE DragControl (TheControl: ControlHandle; StartPt: Point;
  1551. *             LimitRect,SlopRect: Rect; Axis: Integer);
  1552.     INTEGER DRAGCONTROL
  1553.     PARAMETER (DRAGCONTROL=Z'96712D88')
  1554.  
  1555. * FUNCTION TrackControl (TheControl: ControlHandle; StartPt: Point;
  1556. *             ActionProc: ProcPtr): Integer;
  1557.     INTEGER TRACKCONTROL
  1558.     PARAMETER (TRACKCONTROL=Z'96852400')
  1559.  
  1560. * PROCEDURE DrawControls (TheWindow: WindowPtr);
  1561.     INTEGER DRAWCONTROLS
  1562.     PARAMETER (DRAWCONTROLS=Z'96910000')
  1563.  
  1564. * FUNCTION GetCtlAction (TheControl: ControlHandle): ProcPtr;
  1565.     INTEGER GETCTLACTION
  1566.     PARAMETER (GETCTLACTION=Z'96A90000')
  1567.  
  1568. * PROCEDURE SetCtlAction (TheControl: ControlHandle; ActionProc: ProcPtr);
  1569.     INTEGER SETCTLACTION
  1570.     PARAMETER (SETCTLACTION=Z'96B12000')
  1571.  
  1572. * FUNCTION FindControl (ThePoint: Point; TheWindow: WindowPtr; VAR
  1573. *            WhichControl: ControlHandle): Integer;
  1574.     INTEGER FINDCONTROL
  1575.     PARAMETER (FINDCONTROL=Z'96C52C00')
  1576.  
  1577. * FUNCTION DeQueue (QElement: QElemPtr; TheQueue: QHdrPtr): OsErr;
  1578.     INTEGER DEQUEUE
  1579.     PARAMETER (DEQUEUE=Z'96E52000')
  1580.  
  1581. * PROCEDURE EnQueue (QElement: QElemPtr; TheQueue: QHdrPtr);
  1582.     INTEGER ENQUEUE
  1583.     PARAMETER (ENQUEUE=Z'96F12000')
  1584.  
  1585. * FUNCTION GetNextEvent (EventMask: Integer; VAR TheEvent: EventRecord):
  1586. *             Boolean;
  1587.     INTEGER GETNEXTEVENT
  1588.     PARAMETER (GETNEXTEVENT=Z'970CE000')
  1589.  
  1590. * PROCEDURE GetMouse (VAR MouseLoc: Point);
  1591.     INTEGER GETMOUSE
  1592.     PARAMETER (GETMOUSE=Z'97230000')
  1593.  
  1594. * FUNCTION StillDown : Boolean;
  1595.     INTEGER STILLDOWN
  1596.     PARAMETER (STILLDOWN=Z'973C0000')
  1597.  
  1598. * FUNCTION Button : Boolean;
  1599.     INTEGER BUTTON
  1600.     PARAMETER (BUTTON=Z'974C0000')
  1601.  
  1602. * FUNCTION TickCount : LongInt;
  1603.     INTEGER TICKCOUNT
  1604.     PARAMETER (TICKCOUNT=Z'97580000')
  1605.  
  1606. * PROCEDURE GetKeys (VAR TheKeys: KeyMap);
  1607.     INTEGER GETKEYS
  1608.     PARAMETER (GETKEYS=Z'97630000')
  1609.  
  1610. * FUNCTION WaitMouseUp : Boolean;
  1611.     INTEGER WAITMOUSEUP
  1612.     PARAMETER (WAITMOUSEUP=Z'977C0000')
  1613.  
  1614. * PROCEDURE CouldDialog (DialogID: Integer);
  1615.     INTEGER COULDDIALOG
  1616.     PARAMETER (COULDDIALOG=Z'97908000')
  1617.  
  1618. * PROCEDURE FreeDialog (DialogID: Integer);
  1619.     INTEGER FREEDIALOG
  1620.     PARAMETER (FREEDIALOG=Z'97A08000')
  1621.  
  1622. * PROCEDURE InitDialogs (RestartProc: ProcPtr);
  1623.     INTEGER INITDIALOGS
  1624.     PARAMETER (INITDIALOGS=Z'97B10000')
  1625.  
  1626. * FUNCTION GetNewDialog (DialogID: Integer; DStorage: Ptr; Behind:
  1627. *             WindowPtr): DialogPtr;
  1628.     INTEGER GETNEWDIALOG
  1629.     PARAMETER (GETNEWDIALOG=Z'97C8A400')
  1630.  
  1631. * FUNCTION NewDialog (DStorage: Ptr; BoundsRect: Rect; Title: Str255;
  1632. *              Visible: Boolean; ProcID: Integer; Behind: WindowPtr;
  1633. *              GoAwayFlag: Boolean; RefCon: LongInt; Items: Handle):
  1634. *              DialogPtr;
  1635.     INTEGER NEWDIALOG
  1636.     PARAMETER (NEWDIALOG=Z'B7D00002')
  1637.  
  1638. * PROCEDURE SelIText (TheDialog: DialogPtr; ItemNo: Integer; StrtSel,
  1639. *              EndSel: Integer);
  1640.     INTEGER SELITEXT
  1641.     PARAMETER (SELITEXT=Z'97E11240')
  1642.  
  1643. * FUNCTION IsDialogEvent (TheEvent: EventRecord): Boolean;
  1644.     INTEGER ISDIALOGEVENT
  1645.     PARAMETER (ISDIALOGEVENT=Z'97FF0000')
  1646.  
  1647. * FUNCTION DialogSelect (TheEvent: EventRecord; VAR TheDialog: DialogPtr;
  1648. *             VAR ItemHit: Integer): Boolean;
  1649.     INTEGER DIALOGSELECT
  1650.     PARAMETER (DIALOGSELECT=Z'980F6C00')
  1651.  
  1652. * PROCEDURE DrawDialog (TheDialog: DialogPtr);
  1653.     INTEGER DRAWDIALOG
  1654.     PARAMETER (DRAWDIALOG=Z'98110000')
  1655.  
  1656. * PROCEDURE CloseDialog (TheDialog: DialogPtr);
  1657.     INTEGER CLOSEDIALOG
  1658.     PARAMETER (CLOSEDIALOG=Z'98210000')
  1659.  
  1660. * PROCEDURE DisposeDialog (TheDialog: DialogPtr);
  1661.     INTEGER DISPOSEDIALOG
  1662.     PARAMETER (DISPOSEDIALOG=Z'98310000')
  1663.  
  1664. * FUNCTION Alert (AlertID: Integer; FilterProc: ProcPtr): Integer;
  1665.     INTEGER ALERT
  1666.     PARAMETER (ALERT=Z'9854A000')
  1667.  
  1668. * FUNCTION StopAlert (AlertID: Integer; FilterProc: ProcPtr): Integer;
  1669.     INTEGER STOPALERT
  1670.     PARAMETER (STOPALERT=Z'9864A000')
  1671.  
  1672. * FUNCTION NoteAlert (AlertID: Integer; FilterProc: ProcPtr): Integer;
  1673.     INTEGER NOTEALERT
  1674.     PARAMETER (NOTEALERT=Z'9874A000')
  1675.  
  1676. * FUNCTION CautionAlert (AlertID: Integer; FilterProc: ProcPtr): Integer;
  1677.     INTEGER CAUTIONALERT
  1678.     PARAMETER (CAUTIONALERT=Z'9884A000')
  1679.  
  1680. * PROCEDURE CouldAlert (AlertID: Integer);
  1681.     INTEGER COULDALERT
  1682.     PARAMETER (COULDALERT=Z'98908000')
  1683.  
  1684. * PROCEDURE FreeAlert (AlertID: Integer);
  1685.     INTEGER FREEALERT
  1686.     PARAMETER (FREEALERT=Z'98A08000')
  1687.  
  1688. * PROCEDURE ParamText (Param0,Param1,Param2,Param3: Str255);
  1689.     INTEGER PARAMTEXT
  1690.     PARAMETER (PARAMTEXT=Z'98B36D80')
  1691.  
  1692. * PROCEDURE ErrorSound (SoundProc: ProcPtr);
  1693.     INTEGER ERRORSOUND
  1694.     PARAMETER (ERRORSOUND=Z'98C10000')
  1695.  
  1696. * PROCEDURE GetDItem (TheDialog: DialogPtr; ItemNo: Integer; VAR Type:
  1697. *              Integer; VAR Item: Handle; VAR Box: Rect);
  1698.     INTEGER GETDITEM
  1699.     PARAMETER (GETDITEM=Z'98D11DB0')
  1700.  
  1701. * PROCEDURE SetDItem (TheDialog: DialogPtr; ItemNo: Integer; Type: Integer;
  1702. *              Item: Handle; Box: Rect);
  1703.     INTEGER SETDITEM
  1704.     PARAMETER (SETDITEM=Z'98E112B0')
  1705.  
  1706. * PROCEDURE SetIText (Item: Handle; Text: Str255);
  1707.     INTEGER SETITEXT
  1708.     PARAMETER (SETITEXT=Z'98F16000')
  1709.  
  1710. * PROCEDURE GetIText (Item: Handle; VAR Text: Str255);
  1711.     INTEGER GETITEXT
  1712.     PARAMETER (GETITEXT=Z'99016000')
  1713.  
  1714. * PROCEDURE ModalDialog (FilterProc: ProcPtr; VAR ItemHit: Integer);
  1715.     INTEGER MODALDIALOG
  1716.     PARAMETER (MODALDIALOG=Z'99116000')
  1717.  
  1718. * PROCEDURE DetachResource (TheResource: Handle);
  1719.     INTEGER DETACHRESOURCE
  1720.     PARAMETER (DETACHRESOURCE=Z'99210000')
  1721.  
  1722. * PROCEDURE SetResPurge (Install: Boolean);
  1723.     INTEGER SETRESPURGE
  1724.     PARAMETER (SETRESPURGE=Z'99318000')
  1725.  
  1726. * FUNCTION CurResFile : Integer;
  1727.     INTEGER CURRESFILE
  1728.     PARAMETER (CURRESFILE=Z'99440000')
  1729.  
  1730. * FUNCTION InitResource : Integer;
  1731.     INTEGER INITRESOURCE
  1732.     PARAMETER (INITRESOURCE=Z'99540000')
  1733.  
  1734. * PROCEDURE RsrcZoneInit ;
  1735.     INTEGER RSRCZONEINIT
  1736.     PARAMETER (RSRCZONEINIT=Z'99600000')
  1737.  
  1738. * FUNCTION OpenResFile (Filename: Str255): Integer
  1739.     INTEGER OPENRESFILE
  1740.     PARAMETER (OPENRESFILE=Z'99770000')
  1741.  
  1742. * PROCEDURE UseResFile (Refnum: Integer)
  1743.     INTEGER USERESFILE
  1744.     PARAMETER (USERESFILE=Z'99808000')
  1745.  
  1746. * PROCEDURE UpdateResFile (Refnum: Integer)
  1747.     INTEGER UPDATERESFILE
  1748.     PARAMETER (UPDATERESFILE=Z'99908000')
  1749.  
  1750. * PROCEDURE CloseResFile (Refnum: Integer)
  1751.     INTEGER CLOSERESFILE
  1752.     PARAMETER (CLOSERESFILE=Z'99A08000')
  1753.  
  1754. * PROCEDURE SetResLoad (Load: Boolean);
  1755.     INTEGER SETRESLOAD
  1756.     PARAMETER (SETRESLOAD=Z'99B18000')
  1757.  
  1758. * FUNCTION CountResources (TheType: ResType): Integer;
  1759.     INTEGER COUNTRESOURCES
  1760.     PARAMETER (COUNTRESOURCES=Z'99C50000')
  1761.  
  1762. * FUNCTION GetIndResource (TheType: ResType; Index: Integer): Handle;
  1763.     INTEGER GETINDRESOURCE
  1764.     PARAMETER (GETINDRESOURCE=Z'99D91000')
  1765.  
  1766. * FUNCTION CountTypes : Integer;
  1767.     INTEGER COUNTTYPES
  1768.     PARAMETER (COUNTTYPES=Z'99E40000')
  1769.  
  1770. * PROCEDURE GetIndType (VAR TheType: ResType; Index: Integer);
  1771.     INTEGER GETINDTYPE
  1772.     PARAMETER (GETINDTYPE=Z'99F31000')
  1773.  
  1774. * FUNCTION GetResource (TheType: ResType; TheID: Integer): Handle;
  1775.     INTEGER GETRESOURCE
  1776.     PARAMETER (GETRESOURCE=Z'9A091000')
  1777.  
  1778. * FUNCTION GetNamedResourc (TheType: ResType: Name: Str255): Handle;
  1779.     INTEGER GETNAMEDRESOURC
  1780.     PARAMETER (GETNAMEDRESOURC=Z'9A196000')
  1781.  
  1782. * PROCEDURE LoadResource (TheResource: Handle);
  1783.     INTEGER LOADRESOURCE
  1784.     PARAMETER (LOADRESOURCE=Z'9A210000')
  1785.  
  1786. * PROCEDURE ReleaseResource (TheResource: Handle);
  1787.     INTEGER RELEASERESOURCE
  1788.     PARAMETER (RELEASERESOURCE=Z'9A310000')
  1789.  
  1790. * FUNCTION GetResAttrs (TheResource: Handle): Integer;
  1791.     INTEGER GETRESATTRS
  1792.     PARAMETER (GETRESATTRS=Z'9A650000')
  1793.  
  1794. * PROCEDURE SetResAttrs (TheResource: Handle; Attrs: Integer);
  1795.     INTEGER SETRESATTRS
  1796.     PARAMETER (SETRESATTRS=Z'9A711000')
  1797.  
  1798. * PROCEDURE GetResInfo (TheResource: Handle; VAR TheID: Integer;
  1799. *            VAR TheType: ResType; VAR Name: Str255);
  1800.     INTEGER GETRESINFO
  1801.     PARAMETER (GETRESINFO=Z'9A816D80')
  1802.  
  1803. * PROCEDURE ChangedResource (TheResource: Handle);
  1804.     INTEGER CHANGEDRESOURCE
  1805.     PARAMETER (CHANGEDRESOURCE=Z'9AA10000')
  1806.  
  1807. * PROCEDURE AddResource (TheData: Handle; TheType: ResType; TheID: Integer;
  1808. *             Name: Str255);
  1809.     INTEGER ADDRESOURCE
  1810.     PARAMETER (ADDRESOURCE=Z'9AB12380')
  1811.  
  1812. * PROCEDURE AddReference (TheResource: Handle; TheID: Integer; Name: Str255);
  1813.     INTEGER ADDREFERENCE
  1814.     PARAMETER (ADDREFERENCE=Z'9AC11C00')
  1815.  
  1816. * PROCEDURE RmveResource (TheResource: Handle);
  1817.     INTEGER RMVERESOURCE
  1818.     PARAMETER (RMVERESOURCE=Z'9AD10000')
  1819.  
  1820. * PROCEDURE RmveReference (TheResource: Handle);
  1821.     INTEGER RMVEREFERENCE
  1822.     PARAMETER (RMVEREFERENCE=Z'9AE10000')
  1823.  
  1824. * FUNCTION ResError : Integer;
  1825.     INTEGER RESERROR
  1826.     PARAMETER (RESERROR=Z'9AF40000')
  1827.  
  1828. * PROCEDURE WriteResource (TheResource: Handle);
  1829.     INTEGER WRITERESOURCE
  1830.     PARAMETER (WRITERESOURCE=Z'9B010000')
  1831.  
  1832. * PROCEDURE CreateResFile (FileName: Str255);
  1833.     INTEGER CREATERESFILE
  1834.     PARAMETER (CREATERESFILE=Z'9B130000')
  1835.  
  1836. * FUNCTION SystemEvent (TheEvent: EventRecord): Boolean;
  1837.     INTEGER SYSTEMEVENT
  1838.     PARAMETER (SYSTEMEVENT=Z'9B2F0000')
  1839.  
  1840. * PROCEDURE SystemClick (TheEvent: EventRecord; TheWindow: WindowPtr);
  1841.     INTEGER SYSTEMCLICK
  1842.     PARAMETER (SYSTEMCLICK=Z'9B332000')
  1843.  
  1844. * PROCEDURE SystemTask ;
  1845.     INTEGER SYSTEMTASK
  1846.     PARAMETER (SYSTEMTASK=Z'9B400000')
  1847.  
  1848. * PROCEDURE SystemMenu (MenuResult: LongInt);
  1849.     INTEGER SYSTEMMENU
  1850.     PARAMETER (SYSTEMMENU=Z'9B510000')
  1851.  
  1852. * FUNCTION OpenDskAcc (TheAcc: Str255): Integer;
  1853.     INTEGER OPENDSKACC
  1854.     PARAMETER (OPENDSKACC=Z'9B670000')
  1855.  
  1856. * PROCEDURE CloseDskAcc (RefNum: Integer);
  1857.     INTEGER CLOSEDSKACC
  1858.     PARAMETER (CLOSEDSKACC=Z'9B708000')
  1859.  
  1860. * FUNCTION GetPattern (PatID: Integer): PatHandle;
  1861.     INTEGER GETPATTERN
  1862.     PARAMETER (GETPATTERN=Z'9B888000')
  1863.  
  1864. * FUNCTION GetCursor (CursorID: Integer): CursorHandle;
  1865.     INTEGER GETCURSOR
  1866.     PARAMETER (GETCURSOR=Z'9B988000')
  1867.  
  1868. * FUNCTION GetString (StringID: Integer): StringHandle;
  1869.     INTEGER GETSTRING
  1870.     PARAMETER (GETSTRING=Z'9BA88000')
  1871.  
  1872. * FUNCTION GetIcon (IconID: Integer): Handle;
  1873.     INTEGER GETICON
  1874.     PARAMETER (GETICON=Z'9BB88000')
  1875.  
  1876. * FUNCTION GetPicture (PictureID: Integer): PicHandle;
  1877.     INTEGER GETPICTURE
  1878.     PARAMETER (GETPICTURE=Z'9BC88000')
  1879.  
  1880. * FUNCTION GetNewWindow (WindowID: Integer; WStorage: Ptr; Behind:
  1881. *             WindowPtr): WindowPtr;
  1882.     INTEGER GETNEWWINDOW
  1883.     PARAMETER (GETNEWWINDOW=Z'9BD8A400')
  1884.  
  1885. * FUNCTION GetNewControl (ControlID: Integer; TheWindow: WindowPtr):
  1886. *              ControlHandle;
  1887.     INTEGER GETNEWCONTROL
  1888.     PARAMETER (GETNEWCONTROL=Z'9BE8A000')
  1889.  
  1890. * FUNCTION GetMenu (MenuID: Integer): MenuHandle;
  1891.     INTEGER GETMENU
  1892.     PARAMETER (GETMENU=Z'9BF88000')
  1893.  
  1894. * FUNCTION GetNewMBar (MenuBarID: Integer): Handle;
  1895.     INTEGER GETNEWMBAR
  1896.     PARAMETER (GETNEWMBAR=Z'9C088000')
  1897.  
  1898. * FUNCTION UniqueID (TheType: ResType): Integer;
  1899.     INTEGER UNIQUEID
  1900.     PARAMETER (UNIQUEID=Z'9C150000')
  1901.  
  1902. * FUNCTION SystemEdit (EditCmd: Integer): Boolean;
  1903.     INTEGER SYSTEMEDIT
  1904.     PARAMETER (SYSTEMEDIT=Z'9C2C8000')
  1905.  
  1906. * PROCEDURE SystemBeep (Duration: Integer)
  1907.     INTEGER SYSTEMBEEP
  1908.     PARAMETER (SYSTEMBEEP=Z'9C808000')
  1909.  
  1910. * FUNCTION TEGetText (HTE: TEHandle): CharsHandle;
  1911.     INTEGER TEGETTEXT
  1912.     PARAMETER (TEGETTEXT=Z'9CB90000')
  1913.  
  1914. * PROCEDURE TEInit ;
  1915.     INTEGER TEINIT
  1916.     PARAMETER (TEINIT=Z'9CC00000')
  1917.  
  1918. * PROCEDURE TEDispose (HTE: TEHandle);
  1919.     INTEGER TEDISPOSE
  1920.     PARAMETER (TEDISPOSE=Z'9CD10000')
  1921.  
  1922. * PROCEDURE TextBox (Text: Ptr; Length: LongInt; Box: Rect; J: Integer);
  1923.     INTEGER TEXTBOX
  1924.     PARAMETER (TEXTBOX=Z'9CE12C40')
  1925.  
  1926. * PROCEDURE TESetText (Text: Ptr; Length: LongInt; HTE: TEHandle);
  1927.     INTEGER TESETTEXT
  1928.     PARAMETER (TESETTEXT=Z'9CF12400')
  1929.  
  1930. * PROCEDURE TECalText (HTE: TEHandle);
  1931.     INTEGER TECALTEXT
  1932.     PARAMETER (TECALTEXT=Z'9D010000')
  1933.  
  1934. * PROCEDURE TESetSelect (SetStart,SelEnd: LongInt; HTE: TEHandle);
  1935.     INTEGER TESETSELECT
  1936.     PARAMETER (TESETSELECT=Z'9D112400')
  1937.  
  1938. * FUNCTION TENew (DestRect,ViewRect: Rect): TEHandle;
  1939.     INTEGER TENEW
  1940.     PARAMETER (TENEW=Z'9D2B6000')
  1941.  
  1942. * PROCEDURE TEUpdate (RUpdate: Rect; HTE: TEHandle);
  1943.     INTEGER TEUPDATE
  1944.     PARAMETER (TEUPDATE=Z'9D332000')
  1945.  
  1946. * PROCEDURE TEClick (Pt: Point; Extend: Boolean; HTE: TEHandle);
  1947.     INTEGER TECLICK
  1948.     PARAMETER (TECLICK=Z'9D413400')
  1949.  
  1950. * PROCEDURE TECopy (HTE: TEHandle);
  1951.     INTEGER TECOPY
  1952.     PARAMETER (TECOPY=Z'9D510000')
  1953.  
  1954. * PROCEDURE TECut (HTE: TEHandle);
  1955.     INTEGER TECUT
  1956.     PARAMETER (TECUT=Z'9D610000')
  1957.  
  1958. * PROCEDURE TEDelete (HTE: TEHandle);
  1959.     INTEGER TEDELETE
  1960.     PARAMETER (TEDELETE=Z'9D710000')
  1961.  
  1962. * PROCEDURE TEActivate (HTE: TEHandle);
  1963.     INTEGER TEACTIVATE
  1964.     PARAMETER (TEACTIVATE=Z'9D810000')
  1965.  
  1966. * PROCEDURE TEDeactivate (HTE: TEHandle);
  1967.     INTEGER TEDEACTIVATE
  1968.     PARAMETER (TEDEACTIVATE=Z'9D910000')
  1969.  
  1970. * PROCEDURE TEIdle (HTE: TEhandle);
  1971.     INTEGER TEIDLE
  1972.     PARAMETER (TEIDLE=Z'9DA10000')
  1973.  
  1974. * PROCEDURE TEPaste (HTE: TEHandle);
  1975.     INTEGER TEPASTE
  1976.     PARAMETER (TEPASTE=Z'9DB10000')
  1977.  
  1978. * PROCEDURE TEKey (Key: Char; HTE: TEHandle);
  1979.     INTEGER TEKEY
  1980.     PARAMETER (TEKEY=Z'9DC0A000')
  1981.  
  1982. * PROCEDURE TEScroll (Dh,Dv: Integer; HTE: TEHandle);
  1983.     INTEGER TESCROLL
  1984.     PARAMETER (TESCROLL=Z'9DD09400')
  1985.  
  1986. * PROCEDURE TEInsert (Text: Ptr; Length: LongInt; HTE: TEHandle);
  1987.     INTEGER TEINSERT
  1988.     PARAMETER (TEINSERT=Z'9DE12400')
  1989.  
  1990. * PROCEDURE TESetJust (J: Integer; HTE: TEHandle);
  1991.     INTEGER TESETJUST
  1992.     PARAMETER (TESETJUST=Z'9DF0A000')
  1993.  
  1994. * FUNCTION Munger (H: Handle; Offset: LongInt; Ptr1: Ptr; Len1: LongInt;
  1995. *           Ptr2: Ptr; Len2: LongInt): LongInt;
  1996.     INTEGER MUNGER
  1997.     PARAMETER (MUNGER=Z'9E092492')
  1998.  
  1999. * FUNCTION HandToHand (VAR TheHndl: Handle): OsErr;
  2000.     INTEGER HANDTOHAND
  2001.     PARAMETER (HANDTOHAND=Z'9E150000')
  2002.  
  2003. * FUNCTION PtrToXHand (SrcPtr: Ptr; DstHndl: Handle; Size: LongInt): OsErr;
  2004.     INTEGER PTRTOXHAND
  2005.     PARAMETER (PTRTOXHAND=Z'9E252400')
  2006.  
  2007. * FUNCTION PtrToHand (SrcPtr: Ptr; VAR DstHndl: Handle; Size: LongInt)
  2008. *              : OsErr;
  2009.     INTEGER PTRTOHAND
  2010.     PARAMETER (PTRTOHAND=Z'9E356400')
  2011.  
  2012. * FUNCTION HandAndHand (AHndl,BHndl: Handle): OsErr;
  2013.     INTEGER HANDANDHAND
  2014.     PARAMETER (HANDANDHAND=Z'9E452000')
  2015.  
  2016. * PROCEDURE InitPack (packID: INTEGER);
  2017.     INTEGER INITPACK
  2018.     PARAMETER (INITPACK=Z'9E508000')
  2019.  
  2020. * PROCEDURE SFPutFile (selector: Integer; where: Point; prompt: Str25;
  2021. *               origName: Str255; dlgHook: ProcPtr;
  2022. *               VAR reply: SFReply);
  2023.     INTEGER SFPUTFILE
  2024.     PARAMETER (SFPUTFILE=Z'9EA16CB1')
  2025.  
  2026. * PROCEDURE SFGetFile (selector: Integer; where: Point; prompt: Str25;
  2027. *               fileFilter: ProcPtr; numTypes: Integer;
  2028. *               typeList: SFListPtr; dlgHook: ProcPtr;
  2029. *               VAR reply: SFReply);
  2030.     INTEGER SFGETFILE
  2031.     PARAMETER (SFGETFILE=Z'BEA00003')
  2032.  
  2033. * FUNCTION PtrAndHand (Pntr: Ptr; Hndl: Handle; Size: LongInt): OsErr;
  2034.     INTEGER PTRANDHAND
  2035.     PARAMETER (PTRANDHAND=Z'9EF52400')
  2036.  
  2037. * PROCEDURE LoadSeg (segID: INTEGER);
  2038.     INTEGER LOADSEG
  2039.     PARAMETER (LOADSEG=Z'9F008000')
  2040.  
  2041. * PROCEDURE UnloadSeg (RoutineAddr: Ptr);
  2042.     INTEGER UNLOADSEG
  2043.     PARAMETER (UNLOADSEG=Z'9F110000')
  2044.  
  2045. * PROCEDURE ExitToShell ;
  2046.     INTEGER EXITTOSHELL
  2047.     PARAMETER (EXITTOSHELL=Z'9F400000')
  2048.  
  2049. * PROCEDURE GetAppParms (VAR ApName: String[31]; VAR ApRefNum: Integer;
  2050. *             VAR ApParm: Handle);
  2051.     INTEGER GETAPPPARMS
  2052.     PARAMETER (GETAPPPARMS=Z'9F536C00')
  2053.  
  2054. * FUNCTION GetResFileAttrs (RefNum: Integer): Integer;
  2055.     INTEGER GETRESFILEATTRS
  2056.     PARAMETER (GETRESFILEATTRS=Z'9F648000')
  2057.  
  2058. * PROCEDURE SetResFileAttrs (RefNum: Integer; Attrs: Integer);
  2059.     INTEGER SETRESFILEATTRS
  2060.     PARAMETER (SETRESFILEATTRS=Z'9F709000')
  2061.  
  2062. * FUNCTION InfoScrap : PScrapStuff;
  2063.     INTEGER INFOSCRAP
  2064.     PARAMETER (INFOSCRAP=Z'9F980000')
  2065.  
  2066. * FUNCTION UnloadScrap : LongInt;
  2067.     INTEGER UNLOADSCRAP
  2068.     PARAMETER (UNLOADSCRAP=Z'9FA80000')
  2069.  
  2070. * FUNCTION LoadScrap : LongInt;
  2071.     INTEGER LOADSCRAP
  2072.     PARAMETER (LOADSCRAP=Z'9FB80000')
  2073.  
  2074. * FUNCTION ZeroScrap : LongInt;
  2075.     INTEGER ZEROSCRAP
  2076.     PARAMETER (ZEROSCRAP=Z'9FC80000')
  2077.  
  2078. * FUNCTION GetScrap (HDest: Handle; TheType: ResType; VAR Offset: LongInt)
  2079. *             : LongInt;
  2080.     INTEGER GETSCRAP
  2081.     PARAMETER (GETSCRAP=Z'9FD92C00')
  2082.  
  2083. * FUNCTION PutScrap (Length: LongInt; TheType: ResType; Source: Ptr)
  2084. *             : LongInt;
  2085.     INTEGER PUTSCRAP
  2086.     PARAMETER (PUTSCRAP=Z'9FE92400')
  2087.  
  2088. * FUNCTION PTR (ANYTYPE) : PTR;               ; A funny trap.
  2089.     INTEGER PTR
  2090.     PARAMETER (PTR=Z'C0000000')
  2091.  
  2092. * FUNCTION GETGLOBAL : PTR;               ; A funny trap. Returns A5.
  2093.     INTEGER GETGLOBAL
  2094.     PARAMETER (GETGLOBAL=Z'C0000001')
  2095.  
  2096. * FUNCTION MEMERROR : OSERR;               ; Returns last memory error.
  2097.     INTEGER MEMERROR
  2098.     PARAMETER (MEMERROR=Z'C0000002')
  2099.  
  2100.